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A new technique was developed which permits simultaneous extraction of 


complete lift, drag, and thrust power curves from time histories of a single - 


aircraft maneuver Such 4s a pullup nM ase WS Vac and Pus over ATO V . 


for level flight.) The technique is an extension:-to non-linear equations of 
motion of the parameter identification methods of !liff and Taylor and includes 


Provisions for internal data compatibility improvement as well. The technique © 
was shown to be capable of correcting random errors in the most sensitive data 
— channel and yielding highly accurate results. Flow charts, listings, sample 
Inputs and outputs for the relevent routines are provided as appendices. This. : 
_ technique was applied to flight data taken on the ATLIT aircraft. Lack of 
_ adequate knowledge of the correct full-throttle thrust horsepower-true air- | 
- speed variation and considerable internal data inconsistency made it impossible 
“Ae apply the trajectory matching features of the technique. The drag and 
_ power values obtained from the initial least squares estimate are about 154 
less than the "true" values. Compared with predicted values developed using 
previous work at N. C. State, the extracted drag is generally higher. If one _ 
Takes into account the rather "dirty" wing and fuselage existing at the time 
of the tests, however, the Predictions are reasonably accurate. The steady © 
_ State lift measurements agree wel | with the extracted values only for sma] | 
_ values of a. The predicted value of the {i¢+ at a= 0 is about 33% below that 
_. found in steady state tests while the predicted lift slope is 13% below the 
_ steady state value. Because the data processing procedure was unable to 
proceed beyond this initial! extraction, detailed performance and stability | 
_ comparisions with predictions were not attempted. — ee eee 
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¢ * - specific fuel consumption, | a 
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oe oes = genera: representation of a 2 parameter (Dp. WM. 


bert ee ; 
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CLA (= rate of change of Let coefficient with angle. of attack. 


“CLAO = lift coefficient when a = 0. 


| : CLAK = rate of change of | iit coefficient with respect to - 


Boe. 


Bo CLO ee rate of change in AN coefficient with. pitching velocity. 


Do = drag. 
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aoe — weights on elements of cost function. 


TTT 
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“dimensionless numbers used to scale weights in cost function. 
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: 5 L 


Ee, 1 energy, measured at specific point. 

f(t) = functicn of time. | ao | 

poe ta) ~ “functional. representation for use in Newton-Raphson process ®. 106). 
gy = accateration due to gravity. | | at 

oh = altitude. poe 


(= rate of climb. 
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Hin) = filter: response. a 

a J = cost. function. ae ak ee oe es ee ee 
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~ mass flow rate. 


number of harmonics. 


power (p. 36). 


altitude pressure (p. 66). 
stagnation pressure. 


+ime rate of change of pene gee 


pitching velocity. 


pitching acceleration. - 
= differential pressure between pitor and static pressures. 


gas constant for air. 


radial displacement or yaw rate. 


/ area (p. 19). 


- fit error. ( 38). 


as area. 


wing area. 


= thrust (P. 36). 

total time (p. 53). 

(= Jocal free stream absolute temperature ie 68). 
time. | | | 7 

stagnation temperature. 

~ component < of aircraft velocity « on x- ‘body axis oe 65). . 

fluid velocity cr 70). aie. fda 

= acceleration along. the jae | 

velocity of aircraft along flight path. 

acceleration of atrcratt along, flight path, 


- rate: of ‘change of vehicle acceleration along Flight path. 


5 


a. 
qs 


4 
aes rece Ra ies, VO eee 
or 7 


' : 

> 
: ae 
2 en aera, = SEA of Gh ies 


WCTL 
WGTU 


“ax 


De 


component of aircraft velocity along z-body axis. 


lower constraint weight. 
upper constraint weight. 


horizontal displacement. 


exponent In lift expression (p.- 105). 


displ scament of accelerometer From C.ge 


angle of attack. 


time te of change of angle of attack, | 


flight path angle @. 6). 


ratio of specific heats (p. 68). 


flight path angular velocity. 
“flight path angular Sceslsradicn. 
rate of change of oie path angular acceleration. 
"displacement thickness, 
plteh angle. | 
‘pitching velocity 


time interval. 


coefficient of viscosity. 


| density. 
time constant. 
“bank angle. 


nan 
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SUBSCRIPTS 


cutoff value. 
refers to measured value. 
refers to values obtained from drag equation. 


fuselage. 


refers to values obtained from |ift equation, 
“fast point in data set. | 
tail. 


vertical tail. 
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INTRODUCTION © 


The value of any. predictive procedure depends rather fundamental! ly upon i 


its success in forecasting the behavior of the item with which it's associated © 


under actual use conditions. Thus, a technique for predicting the lift, drag, 


and pitching moment of a proposed aircraft is useful to the extent that it _ 


foretel|s the forces and moments which will be experienced by the flight 


hardware. It is usually in the nature of things that the better the job the © 
technique does, the more difficult and expensive it. is to use. fortunately, 
the introduction of increasingly sophisticated digital computers has made it 
possible to increase the rigor of lift, drag, and moment predictive techniques 


without significant increases in the cost of employing them. This process can 


_ be expected to continue as computer capabilities improve. 


_ Even a supposedly rigorous technique, however, may not be useful If it 
does not do a good job of predicting what actually occurs. The analytical 
model, for example, may be too crude or important effects may not have been | 
treated at all. It is therefore important that new predictive techniques be 


evaluated critically under actual use conditions before they are employed - 


extensively for preliminary design activity. — 


it was intended that this procedure be followed in the case of the | 
predictive techniques developed in Reference 1. The vehicle To which they 
were applied was a modified Piper Seneca (ATLIT).. The wredictions of bl tt, 
drag, and pitching moment to be encountered during cruise flight were 
developed using the computer program described in Reference 1 and the ~ 
vehicle's geometry as obtained from Piper shop drawings. Performance — 


predictions and stability predictions were also made using in these instances 


the programs described in. References 2 and 3.— The aircraft itself was then 
flight tested to determine the parameter values actually experienced. This 


report outlines the methods by which the parameter predictions were obtained, 


presents their results, describes the methods by which the parameter values 
were obtained from flight data, and gives these results. ase =e ee te 





stations. | ) trea . | ; 
fuselage mathematically into a vertical slit sad distributing its effects along 
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LIFT AND DRAG PREDICTION a 


Wing ~ | 
hy 


The ATLIT airplane employs a straight, tapered wing with a GA(W)-1 airfoil 
section 17% thick. The computational technique distributes 65 regions of = 


constant vorticity on the surface of the airfoil, calculates from this-an 


inviscid flow field and pressure distribution, then determines the boundary 
layer growth corresponding to this pressure distribution, and recomputes the 
inviscid flow field of a pseudo airfoil! whose ordinates are now +he physical — 
airfoil ordinates plus the local values of 5* with a modification so as TO 

— focate the trailing edge stagnation point downstream in the wake. This process 
| goes through four iterations so that the computed pressure distribution = 
obtained woter the \ast potential (inviscid) solution is essentially the same 


as that used to generate the boundary layer solution which formed the basiS oss. 


for that potential solution. The program gives section Jift, drag, and 
moment. The drag includes both skin friction drag and form drag. However, 


 _pecause of the flow mode! used, extensive regions of flow separation cannot | 


be treated. For this reason, the data ere unreliable above C, = 0.8. 


: The outputs (lift, drag, and moment vs. 4 for 4 given. Reynolds number) 
from the airfoil program are fed into a curve fitting routine which provides . 


polynomial representations of the results for use by the wing program. This 


program uses lifting line +heory to modify the loca! angle of attack which 
the airfoil data "sees" according to spanwise changes in twist, camber, 


thickness, and chord length. Spanwise variations in Reynolds number are 


handled by providing as input tip and root data at the correct Reynolds 


- number with the program interpolating to obtain the data for other spanwise 
Inviscid wing-fuselage interference is treated by transforming the 


the span. The output of the program is the three-dimensional lift, drag, and — 


pitching moment atthe wing. - Note that the drag Includes both profile and | 


_ induced drags- 


.. >The same. procedure is employed +o find the contributions of the tail 
surfaces to the overal! aircraft lift, ira, andumemient mer ver treet 12) hy 


was considered to ore si? of ‘asymmetric: surface unaffected ‘by The presence 


of the horizontal tail. the horizontal tail was assumed To be unaffected by 


of ne wgence of te vertical tail, propel ler. s/1PSTrest or the downwash of — 
the Wings. comb MIP Pi tay sk ood ns Sek ties © 

“ crs tnput data: and results of ‘the. various computations: ars shew". 
figures 1 through /- pe ee Meee ee 
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point downstream | 
on the body plus wake body recomputed. 5 
_{ntegrated over the body to find the skin friction drag and the recomputed 


Fusela e and Nacelles. 


The program to compute the forces and moments on isolated, quasi-stream- 
lined bodies having a plane of symmetry represents the half-surface by 560 
flat panels of more or less equal area. On each panel is distributed a 
uniform source whose strength is such that the flow due to al! sources is 
everywhere parallel to the surface. Then, a streamline which goes through 
the centroid of a particular panel is traced upstream to its inception point. 
Along this streamline is calculated the boundary layer displacement thickness 
and skin friction by a momentum integral method. This is done for all 560 
panels. . At the downstream end ot the body the wake is arbitrarily assumed to 


begin at the upstream end of the last two sets of panels. The angle of the 


wake leaving the body is determined by the history of the boundary layer 


displacement up to that point. This wake is then paneled To a stagnation 
n the physical wake and the inviscid pressure distribution — 


The calculated skin friction is. 


pressure distribution is Integrated in the normal and axial directions to 


— find the lift and form drag. The same data are also used in computing the — 
pitching moment. — | oot at ee ee 


Because the boundary layer routine used is two-dimensional it is not 


= valid when the flow is expanding or contracting rapidly, i-e-, near the nose 


or tail of a body, or when there is a significant cross flow, |.¢-, at angle 


of attack. For this reason the aircraft drag computation is reasonable only 
in the cruise configuration. In the context of an overall drag computation 
this is not unduly limiting because the wing drag calculation fails for high 
angles of attack as well. Several attempts were made to extend the angle of 
attack range of the computation at least. for axisymmetric bodies, by using an _ 
axisymmetric finite difference boundary layer routine in the plane of symmetry 
_{n order to locate the lee-side separation point and then applying the Allen- ae: 
Perkins (Ref. 4) technique to determine the normal force. However, the com- | 
puted separation point was not regularly, located sufficiently close to physical — 


separation point (as found experimental ly) to make this approach. viable. 


| “Modeling fuselages and nacel les for the purposes..of drag computation as. | 
isolated bodies of course ignores interference effects. 3 | ) | 
ceivable that the inviscid aspects of interference could be treated adequately 


While it is con 


(and In fact have been in many cases), I(t will require a general {hres 


dimensional boundary layer solution to treat the Viscous aspects adequately. 
Since such colutton techniques wit!.be some tlme Incoming, it continues, To 


| be necessary +o treat these effects empirically. Because other approximations 


in the model can be expected to yield uncertainties of the same order oF 


magnitude, no attempt was made to account for these effects. 


Figures 8 through i} show the input data and calculated results for the 
 Z ATLIT fuselage and nacelles. Sie re Loe ee oe ee. ae 
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Protuberances 


i Ae No: eee aan ing: for the drag due os, protuberances was deemed necessary in 
the drag buildup since the probable magnitude of these effects is within the 


uncertainty | bounds of The nacelle, aga Keres and ane re isiee ape computations. 
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=n + oases 69 


ae ee 


This: re as. aicated previously, does aor clade the etfects of rior 
- separations at the. higher | lift coefficients. In an effort to develop a more 
accurate polar upon which to base performance estimates, full scale wind tunnel 
test data on a similar aircraft ou , 5) were examined and fitted By bli a 
- eqey on 6. ge aoe ; 


2 : 13. 42, ee 
p= 0 + 0.00138 ¢,! — @) 


Blots. of these avatiens are shew in figure 12. Note that. the two curves” 


sd le ter little for C, < 0.8. -Above C, = 0.8 iT fs To be - expected that equation. oe 


fel) will more nearly represent the behavior of the ATLIT than equation (1). 
- Despite the fact that equation (2) describes the drag of an unpowered air- 
_ plane and that drag under some conditions of.powered flight may exceed the 
drag in unpowered flight, equations (1) and (2) were treated as the probable | 
boundaries for the actual ATLIT drag polar. Because of the relatively smaller 
— ATLIT wing area (compared with the aircraft tested in Ref. ees is not oo 
expected that the ATLIT drag will rise as rapidly with increasing ‘Cas 17 
does for the aircraft of Ref. 5. Thus, even if the ATLIT drag in powered 
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a> Curves -fit results for Light. Twin. 
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ESTIMATED THRUST 
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_ responsible for only about 40% | 
aS a result, only about 4% lower. 
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PERFORMANCE PREDICTIONS 


The drag polars given by equations (1) and (2) were submitted to the 
point performance program described in Ref. 2 along with the thrust horse- 


_ power data'given in figure 13. The latter were derived from engine test cell 


data and propeller performance charts. They do not include any instal lation- 


dependent effects. The data given in Table || represent the output OFAN Shc2 


program. It will be noted that, compared with the original Seneca, only : 
small! improvements in rate-of-climb and crulse speed are’ expected. This can. 
be explained by the fact that although the airfot! itself offers about a. 


10% improvement in L/D at c= 0.8 (the nominal Cy, for climb) the wing is 


of the total drag. 


"Overall aircraft drag is, — 
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TABLE IE. COMPARISON OF. PREDICTED . ATLIT PERFORMANCE. USING ‘THRUST HORSEPOWER DATA SHOWN IN, FIG. 
Se AS WHTH PIPER SENECA — 





Predicted using | Predicted 
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Performance characteristics 7 from wird tunnel Seneca parabolic | 
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STABILITY PREDICTIONS 
The stability predictions for the ATLIT were developed using the air- 


craft's geometric and inertial parameters and the computer programs described 
in Ref. 3. The input data and results are shown in figures 14 Through 17 and 
18 through 21. a 0 i ake Sa i 
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| flight speed, altitude, and power setting. 


! function of RPM and flight velocity, the flow disturbances caused by putting 


not readily determined a.priort. Hence, efforts have been made from time to 
- time to measure inflight thrust using such. techniques as the torque reaction. _ 


TE by varying power levels. 


torques was not available and the longitudinal accelerometer provided in the 


ees and drag simultaneous ly in. accelerated flight. 


| extract +he values of stability derivatives from flight data have all faced _ 

— . the problem of fitting an analytical mode! containing thirteen or more | 
' undetermined coefficients to a set of four or five simultaneous time histories. Le ee 
'-.. That is, the number of unknowns greatly exceeds the number of independent re en a 


ee attacked (see Ref. 6 for example) by fitting the equations to the time 
histories at.a number of different times. Theoretically, one need only 27% 


2. the! equation the same number of times as one desires to find coefficient 
values. [n practice, it is fit many, many times and the values. which best > 


7 aetarninant, convergence: is not guaranteed. 
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| MEASURING DRAG AND THRUST | IN FLIGHT 
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. “Most techniques for the dateminanice of aircraft drag in flight rely on 
the fact that when the aircraft is in unaccelerated flight, the forces along 
its x-axis, principally the thrust and drag, are in balance. Then, if one 
‘knows the propulsive thrust for a particular flight condition, he automatically 
knows the aircraft drag at that condition. Thus, to apply these techniques . 
one must know that V = 0 as well as the propulsive thrust as a function of a 
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ogee 
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‘This; unfortunately, is not determined easily. Although engine Saitout 
can be measured accurately on a test stand as a function of altitude and power | 
setting and propeller characteristics can be determined in a test cell as a 


a cowled engine behind a Propel ler and mounting the whole on an airplane are 
~ produced by the engine or the vehicle acceleration at constant aoc 


ta The reader will! readily apprectate ane deetiedities which such techniques 
entail. In the case of the ATLIT aircraft, instrumentation to measure reaction 


Instrument package was not considered a primary test instrument, at least 
initially. Further, the estab! ishment of really eee ee flight at many © 


_ different speeds is very consuming of flight test time. {t+ is for these 
reasons that an effort was made to develop an alternate technique to measure 7 


The origin of the concept is quite simple. Reece WGRROES siaeiotias TO 
equations one can write to describe the motion. The problem is usually 


satisfy the time history in some statistical sense are chosen. !f the initial | 
estimates. of the parameter values are reasonably accurate, the procedure | 
- usually converges on the correct values. However, since Pi Perse is not 


The problem | in. ‘datarmining both. drag. and. +heust “simultaneously tn (flight 
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| this means eee fae: any “flight condition there are an ‘ntinite number of sets | 
of T and D which satisfy the equation. For any T there is only one D, but one 
can find the corresponding D for any arbitrary. choice of T whether it has any ,_ 
nn meaning or not. on - 


Fei wine the fairly successful approach used in stability derivative 
extraction, it was reasoned that if one would write the equation of motion | 


_ substituting flight data for different times in the flight, he could create 
-a system-of equations equal to the number of unknowns. Formally, the equation — 
OF motion: of the venlele along: its PpsecrOhy. in the: ee terrestrial plane is 
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In order. to apply the technique, we wish to express the thrust and drag in a | 
polynomial expansion of some easily-measured Flight variable. with the coeffi- 
- cients to be undetermined constants. Now, the thrust is known to depend 
primarily upon flight. Speed: ola a “given poner sevilng SO. that we choose the 
De dail lk . | — | 


oe +f. +e + Pv]. o (4) 


In other words, we assume that the power-speed relationship is a parabola. 

Given the characteristics of most propellers, P,. and P will be positive and 
a 2 negative. We insert the cos a term because we assume that the propeller. 
+ r 


ust is always applied along the x-body axis rather than along the flight — 


path. Drag, on the other hand,is always defined with Delgee To the. oe 
3 Bane ne can uteeresent the drag by the equa Ton. "4 
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“hare a is measured from zero lift and the sixth power for the third term was 
chosen on the basis of curve fits to some actual data. Note,however, that we 

may alter the model to represent a particular situation. more seccurately: aula 

pea atteching. the validi ity. of the procedure. | | | | 


| Substituting these relationships into the equation of motion ) yields 
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“This equation has six unknown but constant coefficients. By determining the 


flight values of y, W, V, V, e, and a at six different times we create a 


of system of six linear equations in six unknowns. This can then be solved for 
| the val ues of Pp ; Pe. Po. C.. C Pie 7 a es or re 


sone Cae. 
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| Difficulties in Concept Execution 


OD og. Unfortunately, this system of equations is what mathematicians call ilJ- 


~ eonditioned; that is, very smal! changes in any of the measured values (a, W, | 
Pes CTs. TO change radically. 

further, the solution guarantees To pass through +he six selected points only. aa 
For. any other speed, acceleration, angle of attack, weight, flight path angle, 


V, V, Y, p) can cause the coefficient values (P 


or altitude, the thrust or drag computed with these six coefficients may be 


quite wrong. In addition, the coefficient values themselves may be ridiculous. 


(for example, a negative C, value), yet the total! drag as determined from — 
CG, + ae +20 ae may bé very reasonable. a 
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- These problems are to some extent traceable to the adequacy of the 
analytical model used. A model which does not well represent what actually 
occurs will, when fit to the data using This procedure, produce nonsense 
numbers for some of the coefficients, i.e., nonsense numbers in the physical 
sense but absolutely correct numbers in the mathematical sense. For example, 
if the speed-power relation should in fact be a constant, then an attempt to 
fit it with a parabola will usually yield non-zero values for P, and P.. 
While for the speeds, etc. at which the data are submitted to the solution 
routine the sum of the three terms will! be correct, individually the values 


make tittle physicaf sense. Thus, a successful solution routine must have a 


provision for examining the results (at least manually) for reasonableness 


and for changing the analytical model. if.the results are not reasonable. 


There is also a’ problem concerned with the selection of the six data — 


; sets submitted to the solution routine. The reader will recognize that if. 


one selects six points very close together in speed, the data must be extremely | 
- accurate because all significance can be lost in taking the differences between 


Amelioration of Solution Difficulties 
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Or as noise-free as Theoretical | y-generated data. 
"How can | use the remainder of +he data (the sets 
_ the six sets mentioned above) tak : 
- accuracy of the coefficient extraction procedure?" 
fit the assumed form of the curve (equation 6) to th Oe as 
technique. What this does is to determine Those val | : oe es 
from the curve ¥o eadh of the data points a minimum 
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For a variety of reasons, flight measurements will never be as accurate 


e data by a least-squares 
ues of the coefficients 


One then asks the question, | 
of a, 0, Y, V, V, W beyond 6 ae 
en during a 30-second maneuver to improve Thier es; 
The classical answer is LO 
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where the subscript i refers to the value of the Soe at the oo time. 
This equation is a measure of the precision with ua the theoretical mode! 
D? Cy ) satisfies the experi-— 


mental data. The closer S$ is to zero, the. ‘ane the fit. We wish to. minimize 
the error with respect to all six unknowns. Nee we set. te 
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of the N data polnts. in the set. Once this and: the similar sums are. formed; | 
one has simply. a system of six first order algebraic equations ji in six unknowns | 
whieh. can be solved with some tabor for the values of the six unknown coeffi< 
2 tents. © nese coefficient values eo the "best" fit, using the model 
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“chosen, to the set encompassing al! the data points. The coefficient values 
May change, of course, if data are added to or deleted from the set. Needless 


to say, the coefficient values may be in error if the data contains spurious 
Signals or if the mode| chosen does not represent the physical situation 


adequately. Also if the data points are not well-distributed over the entire 


speed range, the coefficients which are the principal contributors +o the 
function value in an underrepresented speed region may be in error. As a 


result of these factors it is necessary to approach the extraction process 
with some care. eee eS | | ee at : 


Despite these difficulties, the following example is illustrative of what | 
can be done using this method. Figure 22 shows the assumed drag variation | 
with angle of attack and figure 23 the assumed power variation with speed. 

_ These data were then inserted in the NCSU path performance program described _ 
in Ref. 2 to obtain time histories ofp, a, V, W, V, and y. These and related 

_ time histories are shown in figure 24. The path pertormance program is ao 
| forward integration scheme which varies the integration step size according 

. to an error criterion. Thus the time histories will all contain very smal! | 
errors which cause the time histories to d 
values of the functions at any particular time. One cannot, therefore, 


expect to recover the exact values of the drag and power expressions by 


_ proceeding in this fashion. The values of the time histories shown in. 

_ figure 24 at each 0.1 seconds were then submitted to the least squares 
routine. The coefficients developed by the program match the first six =. 

_ significant digits of the coefficients in the power and drag functions which — 
_ were used to generate the time histories. The recovered coefficients, when | 
inserted in the equation with the values of the parameters from PATH at each © 
- of almost 300: points, satisfy the equation to within 107-19 or better for the 
sum of all points. > rr ar 
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Data Filtering 


All records of the Flight of actua} aircraft will contain Spurfous con- 
tributions to the data Signals arising from electrical nofse, instrument 
errors, structura| Vibrations, and atmospheric turbulence. Since the mode} 
we have chosen +o represent the aircraft+ does not include Such effects, it js 
desirable to remove Them, in so far as possible, kefore submitting the data 


To the coefficient extraction routine. Not doing 0 May cause the extraction : 


routine to produce physical ly-meaningless results, 


All filtering schemes proceed from the idea that continuous data signals - 


are composites, each Signal made up Of sine waves of af] frequencies. Each 


_ of these Sine waves in the composite has a definite amplitude and phase 


_ relationship To the other sine waves making up the signal. By suppressing | 
_ Those frequencies which, on the basis of analysis or experience, cannot arise — 


. from the aircraft behavior of interest, one can remove most of the spurious 
—- gontributions to the signal. Traditionally, 
: - Signals using frequency sensitive Passive networks. In the present cas@é, 
- however, the flight data were received in digita} form so that the filtering | 
WS accomp| ished mathematical ly using a computer*, > - 7 


it is first necessary to represent the data set by its contributing sine 


- 8 waves. Let F(t, i=1,2,3,--+n "ePresent the points in the data Set, i.e., the. 


- value of a particular Signal at discrete points of time. Let T = the total. | 
_ time over which we choose to make the analysis. Then over the interval t = Q°- 
‘256 = T we obtain a set of N values of the Signal which, for.reasons of 


_ simplicity, we choose to separate by a fixed time interval, at =, ; 
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In order to reduce the numerica| prob !ems encountered with a Fourier — 


Series representation of @ function, we wil! let 
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- For this reason we have choser ro employ mathematical techniques more Te ee 
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- Tanere dues which seem more appropriate to the anely. i. of data which are 
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We will also add to these data the set 
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the functiona} form used to represent tT) from +. to th Should be chosen 


| 7 three adjacent points, The unknown function js therefore represented piece-~ 


vio. NO difficulty Tr Svaluating a for any-n wa choose, however; this is jn sharp 
contrast TO. the usual treatments Of sampled Gata where the highest value of » a 


oe ver rate. We come to This result because the integrations of (19) and (20) are — 


To carry out the integrations of (19) ong (20), we will assume that #.(4 
and f (+) are really continuous functions Over the interval of interest. The | 
expression f_(t.) represents Just the value Of this function at time Pegi es 
a Typ rather than being an impulse at t, with an amp |i tude -equa} WO 4 (11) 

_ Since the analytical form of F,(1) fs unknown, we must choose some means too 
fepresent it, 1 ¢ an original] analog record of the data is available, then 
_ Such that it does not vary from the original record by more than Some sma] | 

_ amount anywhere between tT, and Thee Two forms are common fy employed for this 


Purpose: a Straight line between two adjacent points and a Parabola connecting | 
wise by a series of elementary. functions Of the same form. This Provides a 


_ function which is everywhere continuous Pur which has discontinuous slopes at 
the points where the pieces Join. The ropa criterion chosen determines the 





| representations js one for which y = day Padians, that is, one described by 
five samples, Its linear segment repfegentat ion has a maximum error of 29% 
_ and its Parabolic ene. Fepresentation.a maximum error of 6%. Fora 
Sampling rate-of 10/second we Should certainly limit our consideration TO 
frequencies of Jess Than..2.5 Hz, , re a 


a | From the foregoing We conclude that, in the absence of the original 


_ analog record, we must assume that the sampling rate represented by the data 
set was at least four Times the highest Trequency of interest. We experience - 


Which may be uSed without obtaining spurious results jis ‘hal¢ The samplin 

_ carried out analytically although piecewise - In. effect Providing an infinite : 
sampling rate. TO employ the parabolic representation, we take 
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the curvature of the data record is insufficient to require the use of a 
parabolic approximation and a linear approximation to f(t) will provide the 
same tees “In this case 
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Note that through the use of this procedure only deviations from a type of mean. 
function value must be treated numerically. Fewer data points are therefore 
necessary to fit the function adequately and fewer harmonics must be calculated 
to regenerate the deviation portion of the function with acceptable accuracy. 
The reasons for adding the mirror image of the function from T, to t,, as a 
"taii" to the original function are that (a) it makes the function eVen, 2. 
possibly reducing the number of coefficients which must be calculated, (b) it 
improves the coefficient definition because more data are now inctuded in the 
integration, and (c) it offers the opportunity to calculate f'(t,) since the 
coefficients of its series representation will usually decrease In value with 
- increasing numbers of harmonics. This may not be The case if the "tail" Is 
not added. | | Po , oe | 


For those cases better represented by an odd function, i.e., using only 
sine terms, one has merely to change the sign of ¢ (t,) to make the function 
odd. If, however, one is willing to calculate both sine and cosine coefficients 
and perform the regeneration using both sine and cosine terms, then the "tail" 


can be dispensed with. Generally, one can obtain a better definition of the 


function for a given value of n by using both sine and cosine terms. Never- 
theless, in some cases an equally good representation can be secured using 4a 
sine or a cosine series with less than 2n terms. This practice then results © 
in a Savings in computational time. The choice as to which procedure to follow 
is, until more experience with each is obtained, somewhat arbitrary. 


The accuracy with which a parabolic fit represents the data over two time 


intervals depends of course on the size of At. The smallest value of At is 

_ fixed by the data sampling rate. If a smailer time interval is needed to 
obtain a satisfactory fit, it is necessary to interpolate points between the. 

sampled values. It has been found that a fifth-order Newtonian interpolation 


formula generally provides a sufficiently accurate representation To generate 


- the required intermediate points. This formula, for even time increments, is — 
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Yorss+4¥5 represent six values of the function one wishes to interpolate between. 
T . | . 


ese y Values correspond to times toreeeetas O(t) can be found using this 


_ formula for any t between +. and tT. and it may also be used to extrapolate (t+). 


to a short time before T, and a short time after Te. Note that $(t) = Yo? ete. 


Now if the slope of the parabolic representation of the function at t, 
approaching from the left is different by more than e from the slope of thé 
parabolic representation of the function at t+, approaching from the right, we 


calculate O(T) 75) and b(t 75) and fit a parabola first through y., (Ty 79) and 


| Y,» and then through y,, (T3755), and Yo» etc. We can continue to divide the 


intervals in half until the Slope difference at +, is less thane. As a 


excessively long data sets Since we begin with as many as 450 points. ‘Three 
divisions will result in a set Of 3593 points. If ¢ is set to a desirable 


“practical matter, however, more than three such divisions will result in 


value, say 10710, One wil | usually find that with actual noisy data it will be 
_ necessary To interpolate as many points as permissable in order for e TO approach 


‘this value. With smooth data, multiple interpolations wil! not be necessary, : 


- __. Since the procedure described above permits one to describe a Signal time 
history in terms of i¢s harmonic content, i+ is therefore possible to reduce 


the amplitudes of or eliminate certain constituent frequencies from the set. 


_ before regenerating the ztgaal - in essence filtering out the unwanted CON® coos 


tributions to any desired degree - without any disruption of the phase 


relationships among the remaining contributions, This represents a level of 


filter performance far above that possible with passive elements in analog — 


_ circuits. The choice of which frequencies to suppress and to what extent can 
— generally be made on the following grounds: PEE Pisa 


1. If the aircraft itsel¢ is fairly rigid, frequencies above the se 2 
_ — principal Stability modes Should decline in amplitude at about = 
12 db per octave. This means that general ly There should be ss 
_ littte contribution to the vehicle's response to contro! Supe fo 
face deflections or changes in power level! at frequencies above _ 
1 to 2Hz. If the data Show significant harmonic content above —~ 


these frequencies. it can usually be traced to engine-or-. Yee 
Turbulence-induced Structural vibrations or +o electrical noise 


in the signal transducer, encorder, or recorder. ee 
2. Spurious Signals at lower Frequencies 247 be separated from 
the data, provided thelr magnitudes are known a priori. 


| Following these guidelines we may now proceed to perform the attenuation 
Of the higher frequency harmonics in a more rigorous fashion. It will be 


observed that attempts to regenerate functions having substantial high | 


frequency content with a truncated series always lead to a function having 


considerable "ripple". For example, attempts to represent a square wave with 


a truncated series will always show a ripple or oscillation about the. correct 
- Bplue at the leading edge and the trailing edge of the square wave. This 


<n A SBS MS te iat Goa tae be Sh Sant its eh 


20a 


tore ts Sarees 


ee a Hee been demonstrated mathematically (Ref. 7) that te avoid these | 
ripples ‘the variation of a_ with n for (28), for example, must be continuous. 
Truncating | the series “representation oT a function means that a, (n) ts. dis- 


“continuous at the last value. of n (unless of course the value. ae a for this 
and all higher values of n is already zero). A desirable low- -pass digital 7 
filter. design is, therefore, one which suppresses the an's sharply above a cut- 
off value for n, one which leaves the values of a, for n $n. unattenuated, 


and one which does this in a. ‘continuous fashion. One ares eer in the - 


| iterature (Ref. 7) is to multiply the a_'s in the series representation oe 
— the function Hin), where H is defined by | es ze 


for ies Gan, : 





—H(n), It will be noted, se has a continuous first. 


derivative. 


The cutoft ae can be obtained from the following expression: 


6 a T e 


ae is aqulvatent to saying that we will accept al | tes sine waves. required’ : 
ne cP aoe represent the function without attenuation up to a frequency of 10 | ae 


- radians/sec at which point we begin the "rofloff". We accept no energy in 


the; signal beyond a frequency of 15 radians per second. Of course, n_ can be 
a adjusted to match the response characteristics of: the airplane under Fest. 
With flight records usually running 50-40 seconds n_ will. be about 50° and the. 
a mee MGM value of a heeded. is about 1. With this. constraint (36) becomes . 
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Usually, ne ¢ can be adjusted downward: if the flight maneuver Ts, carried out 


with. less. than. maximum aircraft response. 
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One Se the more common ages of noise in flight test date is caused by ee 
failure of the digital encoding or conversion device to register the higher | 
order bits. When this happens there is a sudden smal! jump in the indicated 
value. - These jumps are generally in the same direction and do not occur ina 


completely random fashion. As a result, they cannot be treated as gaussian 


craft states are dynamically capable of only finite rates of change. The change — 


noise; further, they introduce a bias error into data filtered by our fourier 
routine. One means of dealing with this problem is to recognize that the air- 


in altitude pressure with time,for example, is limited by the airspeed, altitude, 


and flight path angle. Any pressure change in excess of This value is obviously 


spurious. In place of the spurious value we can ene the value determined from — 


But h 


The vehicle dynamics . through the. FOL lon ng process: 


“Assume. altitude ‘temperature is. equal to standard sea “level value. | ea 


= 4, 26P, a 6. 86 x 10" hy ic iG: 86 x 10 oo — 


a 


Vsin Y Vein (@ - a). 


: = i. fs 3.26 | : oes 7 ee . : 

- So PS 4.26P (E979 (- 6.86 x 10 °)Vsin (8 - a). 

| 99 | ; pe eee ae a eae 

7 eee aa a come from instrument readings. To allow for errors in these values we 


take < as +he maximum va |ue 


| * ae 2: 922 x +10 5 92 2387 1 403 76526 Vsin Doh. 200 a)d. we 


Thus: the next pressure value ‘cannot: ahange: more than pat on oe previous value. as 
 |f it does, we are justified in replacing the indication by Previous ae PAT. 


Ay though this procedure. will not eliminate. the effects of "bit dropout,” it | 


will reduce materially: the bias and low frequency errors which normal ly. result. 


therefrom. The Fouriar procedure. is then much more pee ee to eAohe the accurate 


-— Gemputation of Derivatives. 


data, neeoee, for effective peraneneh.: ATTACH One 





The drag and power. extraction scheme spesentod: aus requires that. at. 


eee one parameter (&) which is not commonly measured be supplied as an input 
time history. We are therefore forced to differentiate a(t). in some fashion in. | 

order: to obtain. &(+). Because of the fourler series representation used in O92), 
Se ney cael chats the derivative: of this function: ee yaa 
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“this process may bee applied To..any data eet for which : a derivative is. needed 
and for: which he is “otherwise unavailable. fee” 


ie rier exenpiee of the application of this procedure are shown in figures 


25-26. tn figure 25 an angle-of-attack time history as read from a "quick 


look" record is reproduced. Note the high degree of irregularity. This data 


Was read. every 1/4 second. When submitted to the fourier analysis routine 


with n 10, the smooth curve shown in figure 25 is obtained. The angle of | 


; arcu rate is shown in figure 26. The data are quite smooth and appear TOldec > 
be a reliable smoothing of the original. The maneuver for which these data © 


were obtained was a pushover-pullup. The "humps" in the data at roughly 6-— 
second Intervalsare believed to be a consequence of the excitation of the © 
aircraft's longitudinal short period mode by the maneuver. Calculations 
indicate the short gota mode can. be ponpecioe: to have ‘this per led FOF the 
test eon igu er len: » “et nate | or Oe 91% 2 iy 


“t)<t< Po ae a oe : ia (41) 
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Comparison of Computed Acceleration Along the Flight Path 
with that Determined from Accelerometer Indications | 
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The scheme to extract drag and thrust Simultaneously from flight data 
has been found to require accunate indications of the acceleration along the 
vehicle's flight path in order to yield acceptable results. Usually it is 
not possible to locate the measuring instrument (accelerometer) precisely at 

the vehicle's center of gravity, so that it js necessary to correct the 

| ion. for this fact and then to relate the acceleration __ 

along the vehicle's x~body axis to the longitudinal acceleration along the 
flight path, a Sig e | 


t 
a ee 


7 Accelerometers are generally masses constrained to move along the axis 
Of a tube and centered by springs at either end. The position of the mass 
relative To the center of a tube js Proportional to the acceleration and is i. 
measured electrically. When the aircraft accelerates along the flight path, | a 
the mass moves aft of the center of the tube. Now,’ the same effect is produced _ 
when the accelerometer js Tilted nose up even though there is no acceleration. . 
Thus, it is necessary to subtract a-term g sine from the accelerometer > 


sh ae iede nit eyed: SG arm eAM apes bes ha cc ac 


tid 
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Vf the accelerometer js located x feet in front of the c.g. its mass is- 7 
Caused to move forward as a result of the angular rotation of the aircraft by ~~ 
oe, an amount x q°. One must therefore add this term to the accelerometer oe: 

. indication. Similarly, if the accelerometer axis is located z feet below the 
— X=body axis then the accelerometer mass js displaced rearward by an amount 
proportional to z qs | : a oF OR uta, 


aes 


TR Pi pebbck OS apb gteed + 


nt ee eee 


oa The linear acceleration atong the x-body axis in terms of the acceler-— 
| _ ometer Indication location, and angular velocity is therefore 


——" Sa. hieg sin 8+ x q¢ - zq ge ae 04) : 

We desire the acceleration not along the x-body ext but rather along | 
the flight path. We know that for motion in the x-z terrestrial plane 

and —_ ako . 


| a ee ee 
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Whee V is the valeciay, of the aircraft along its flight path and u and w are 


components of this velocity evend the principal axes of the aircraft. In. 
terms of (44) and s4) | | 


— a =Vcosa-VasinatqVsina ~ 


sVcossa-VWa-q) sina. | (46) | 


 Equating (42) and (46) yields” 


‘ind a ae | , oe ee ee le 
Then solving for pa int 
ay ~ g sin 6 + x q° a . * bei nie 
eS. nd. 3 ee | Mee soos | 
ee oe _ ; / 
V : oe | | vee 2 tq) Fanta: oe (48) 


:. The value given by (48) should now be the same as that obtained by differen- 
- ttating the variation of true airspeed with time. The differences between a 
raw accelerometer indication and the derivative of the true airspeed with 
time for an actual flight record are shown in figure 27. 


, Of course one does not measure true airspeed directly. An airspeed 
- sensor measures only a pressure difference. This difference is affected by 
the sensitivity of the pitot and static pressure sources to angle of attack, 


the disturbance to the free stream pressure at the static pressure source 


: resulting from the presence of the aircraft, the compressibility. of the alr, 


and the difference in pneumatic fags of the pitot and static pressure lines. 

_ The pneumatic lag also introduces a time delay in the airspeed indication. 

_ Since the airspeed indicator is calibrated for standard sea {evel ‘conditions, _ 
any vartation in atmospheric Lene will atfect The airspesd at a orien a5, Pg 
: co pressure difference. iba | | 


The. theory of: the pitot-static rube assumes that the air is. | brought to. 


pest at the pitot pressure source adiabatically and that the static source 
senses the pressure in the free stream (i.e., away from the airplane). WaT er eae 
these assumptions, it is easy to show that the True flow Nelocd ye: Is related ue 


ae ‘the. measured ‘pressures Oe 
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“one can write 





where P is the altitude pressure, q. is the difference between the pitot and 
static pressures, T is the local frée stream absolute temperature, R is the 


gas constant for air and y is the ratio of specific heats of air (1.4 for 
diatomic gases at normal temperatures). The P indication for use in this 
_ equation comes from the static pressure source of the pitot-static tube and © 
The T indication from a temperature measuring device. Since one cannot~ 
‘measure the local free stream temperature readily while the vehicle is in 
motion, temperature sensing devices most often measure the stagnation temper- . 


ature, T., which is related to the free stream temperature by 


+ 


- a esi 
om ed : a 
k * | eal 


| *, In terms of the stagnation temperature, the true airspeed is given by 
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Unfortunately, it is usual ly not possible to locate the static pressure 


source on an airplane in a region where the static pressure is the same as 
the free stream value. Hence, the static pressure indication is in error by 
an amount AP, This "position error" so called is felt in both the altitude 
- and q. indications. If we call P' the measured altitude pressure and q.' the 
measured pressure difference then because | * ae ee 


S 





| as a function of q ' or indicated airspeed. With this effect included fhe 
| expression for trué airspeed becomes 
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ein FOI of the measured values and the static source position error wich is a oe 
_ usually determined by flight calibration and is expressed in terms of > 














" Fortunately, modern pitot-static nee are relatively Insensitive to 


pont in angle of attack so that the q_' and P! indications do not depend 
on the tube's inclination to the cok over the useful range of aircraft 
angies of attack. The position error, however, does depend upon angie of 

_ attack and aircraft configuration. At steady speed and constant weight the 
position error can be related, as it commonly is, to q_' or indicated air- 
speed, but during maneuvers it may be necessary to empToy a correlation with | 


angle of attack instead. Whether this is.necessary must be determined by 
calibration. If it is, one must then determine true a and true ange 
of attack iteratively. 


The compressibility. correction. ‘ment toned earl ler: is. peheay included in 
(54). Conventional airspeed indicators, ae may oe ou are eID NY, 
mechani zations of the “equarlon. | - a ee, or 


(55) 





where Py is the mass density ae the air at Singur. sea level conditions. | f 
the airspeed indicator calibration includes. compressibility effects, equation 
(49) with standard sea level pressure and Benpe Fe tice is. mechanized. 


| f pneumatic signals transmitted ‘through the Sitot and: static lines | 
travel at different speeds* then the q_' and P' values will be in error. In 


most aircraft with pressure sensors loéated in the cabin area the pneumatic. lines” 
~ are long enough » that their response characteristics can be considered analogous 


to those of resistance-capacitance electrical circuits. The "resistance" is_ 


proportional to length/(diameter)* while the “capacitance is proportional to — 
system volume. Since the static system includes more instruments. than the © 
 pitot system and, frequently, larger Volumes, the static line diameter must oe 
be larger than the pitot or a. restriction must be placed in the pitot line in | 
order to keep the response times equal. Even if the line responses are : ie ee 
Pinas wilt fag the So value by. a time which Ts Proportional to A and v. Mae ee 


(54) 
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A procedure by ice au en (54) may be odie’. to. account for tag. ts. a oe 


Race 2% following: We begin by recalling that the eaua tion eae ete the axial 
“cy Mot hor of a Samples De “Tue Lh <e tube. ts | ee en ae 


“OR §peba ts used Tere In fie <en-6-06 the: eine OF rate at which the transducer 
-- {ndication responds to changes in the aircraft's pressure field. It does — | 
—- - not refer to the eek at which acoustic stgnals are propagated. through Pigs 4e Bind 
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information transfer mechanism is always present. The importance of The 


ju, gu__ oP, 2, 2, 13,7. au a 
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Here u is the fluid velocity, u the coefficient of viscosity, x the axial 
distance and r the radial distance. In conjunction with the foregoing, one 
may also write the eee, eee the conservation of matter 


Te ee 7 payee <0. 1. 
Examination of the first equation reveals it to be a mixed parabolic and 
elliptic-type non-linear partial differential equation. As such there are at 
least two characteristic propagational velocities by which the. fluid adjusts 
Itself to changing boundary conditions. One is infinite. . The other, as we 
may discover by temporarily Ignoring the effects of fluid viscosity, is | 
approximately what we understand as the speed of sound. This characteristic 


infinite propagational velocity in determining the gross behavior of the fluid 
motion depends, of ‘course, on. the relative importance of the viscous stress © 
ees in the aan 


| The reason for cebinien the foregone bit of ne ahemat cal sedan is that. 
we eaanet solve the equation for typical boundary conditions without prodigious | = 
effort and must therefore resort to some grass approximations. Under these = =. 
conditions it is desirable to extract as much information as possible about — 
the character of the solution of the general equation in order #2 Beyer e kN a vk 
the reasonableness of the approximate solutions. : 


Suppose we model the aircraft static or total pressure systems as a very 
long straight tube terminated on the instrument end by a finite volume. ee 
‘us assume that the flow through this tube fs always isothermal, i.e., it. 


slow. enough that heat can be transferred to and from the tube walls as a fluid 


through the tube to the volume. Depending— see the ratio of the oe ee ae 
fe geGiess the tube and the tube length, ae” S 


| ew ~ P. for short tubes and Pp _/P, “Peiaagr 1d. ee a Ge)... 6. 


particle traverses the length of the tube. The pressure in the volume at the. ee 
instrument end of the tube is then directly proportional to the mass flux . em iat ah aS 
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These results. can all be obtained from the foregoing equations and the equation 
of state, P = pRT, after some manipulation. The first two results are obtained 
assuming u = 0. The second assumes in addition that the velocity is slow 
enough that p = constant. The third result is obtained by assuming that the 
viscous stresses are sufficiently important that the terms on the left side of 
the equation are small by comparison. This wf course is only true in very — 
long tubes (L/D > 100). The Instantaneous rate of change of pressure in the 
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instrument volume is then 


——- 7 _ 1 | | 
instrument = ee Pt astrument? 7 o we 


where 7 isa proportionality constant having the units of time. ‘Note that in 
may change with time. From This expression 


_ general both P. and Pa peti eae | 
it js easy to show that in terms of the instrument reading 


1 P 


Fe F P instrument oe 


instrument es 


t is determined empirically by allowing P, to change instantaneously 
from one value to another. For this case we may easily write 


oP instrument. cep Ne 
CP T 


a x a 3 | (63) 
Oo” Fi astrumend 


_ whose solution is ~ 


I eS Pinsteiment! MEE Es. MEM” 
_ the boundary conditions are 


When T= 0, Pi astrument . "instrument. : 
instrument ~ Pinstrument, © + cee y+ _ (65) 
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The above analysis assumes tha’r a change in P is instantly communicated 
to the gas in the instrument volume. Because acoustic waves are the dominant 


communication mechanism when the fluid is. essentially at rest, changes in P, 


are felt in the instrument volume some A seconds later with the arrival of the 


acoustic wave generated by the change in P.. h can also be measured experi- 
mentally. With this effect included the air pressures at the pitot-static 


opening in terms of the iO smnUnene readings are fCeeraeene by 


Pu = P (+ bead et ht (66) 
instrument instrument | 


Note that P. at + seconds is given in terms of the instrument reading and its 


instantaneous rate OF change ia (t + d) seconds. 


\t now qe Nis ; the hasenee. value of the impact pressure, 


| a is the lag-free value of the static pressure, 
3 set is the lag-free value of the stagnation pressure, 


ie 1 are, respectively, the measured time Consuaite of the 
DS 2 stagnation and static systems , | | 
then | , ee : a 
| 1 - p 1" ius ' Le a a C. Paw ee es , 
qo fT) = Re Fs ar r,? ee At ¥.4,) ms Ft + do) 
To aie ode a fo ca*e 2 fa (67) 
a a ie Fes ee 


- “These values oF q." and P" oe be substituted for. qe ie -and Pt in equation 
| ee to coral a Tag-free value of Vito. | -- 


| Typical values for the ATLIT, Hight test “system pee att 


Ser ui 040 seconds 


| 
A, = 0,025 leche = 
t, = 0.150 seconds 
ee, 0.033 seconds 
Veer > OR ese ooo tsee,.. * 


ot, With these numbers _ 
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f. 2133 eee @ Sil. and 120 0 ft/sec 
Pp s 2116 pst @ S. L. 
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po 


Go" = 2133 = .040 (2.358976) ~ BH + 0.15 (2.1635) 


a 094359 - 2116. - .: 324525 = Bie 23 pst while qo! = 17 pst. 


the error Tn q_ Ts: therefore. 0. 23 ee or 1. 354- while the error in Po is 


—0.0153%. Thus it appears that if one seeks to minimize data errors a lag _ 


correction in the: elenace is required. 


When ani: necessary corrections have ees made to the pressure Wedtearicnes 


_ one can create V(t) by use o% equation (54). _ These data can then be submitted 


to the Fourier analysis Procedure to smooth V(t) and to find Vit). As noted 
above, this velue should agree closely with that determined from equation (48) 
if the totality of the data are self-consistent. Observe, however, that the 
latter computation requires that one input five separate measurements plus. 
the derivatives of two, while the former only: requires Three measurements plus 
some calibration data. Thus, it is to be expected that V computed from Pres 
sure and ee data wilt Sa a be the more rel fable. value. 


ere of An is of Attack Indications 
Correction of Mele of Attack Inéicattons 


In addition to factors such as Meeaneducae linearity, gain, ane bias, the 
angle of attack indication is affected by the presence of the. carrying aircraft 
and by its rotation. It will be recognized that for an ane. of attack vane 
located x feet aieed: of The C. “Ge an incrementa| angle, 3 


must. be subtracted fcone the a pansdiice=: indication to account foe Wehicle.. | 
Ove TION. dn addition, there is pone ly. a ema te of ae type | 


rie) indicated 2 


: between the ae Of ‘attack measured in the ‘ne tghborhood of the alrcratt: aad co eee 
the true Ate é. ae ay) angle of attack. The values: oF ie and sa iid eae 


Perkg ie Scat t. toes, Seca Oe tae ea Son eae ss 


£ SM ale MO TO SERS eb 7 MIDE nh slaut ae is nei ack 


‘ae 





upon the location of the vane relative to the aircraft and the geometry of the 
‘aircraft. They are therefore almost always found from flight calibration | 

_ tests since the flow field about complex shapes such as complete aircraft is 

_ almost impossible to determine analytically. Assuming that these coefficients — 


are known, one may write the expression for true angle of attack as_ 


eer, 
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Note that the value of V used in (71) should be that obtained from (54). One 


Land Power Extraction Method 


equations (10) require W(t) and 6(+) as inputs. Fortunately, for the maneuvers 


varying linearly during a maneuver. Usually @ requires no corrections beyond 
the Instrument calibration ff the erection mechanism is disabled during the 2 
Maneuver. Since the indication is sampled and since there may be electrical, 
ee _ airframe, and turbulence=induced noise, smoothing may stil! be necessary. 


on 


may, then SOOT: Gans 


| (t) and compute the derivative, a(t), by the Fourier | 
analysis procedure. ee i A ae en Scam 


*" Determination of o(t) 


Equation (6) requires as an input o(+). This fs readily determined from 2 





(72) 





lf the altitude pressure transducer is calibrated in feet, then the appropriate 


pressure versus altitude function must be employed to convert the indications — 


to pressure values. 
_ The density values may also require smoothing before the data can be 

inserted Into (10), | ae ee 

Conditioning of Other Data Inputs to the Drag 





In addition to the velocity, angle of attack, and atmospheric density, 


of interest W changes so little that it can be taken to be constant or -at most 


This is also true for the pitch rate indicati 


| | on, qs which is used in the Cc, 
_ computation and the a and a, corrections. hee teat, eae tg he ee: 





More Genera! Power and Drag Models 


— Ina normal ly~aspirated engine the manifold pressure and hence the power 
Output for a given throttle setting wil! usually vary directly with the 


atmospheric density. Thus, if the maneuver to provide data for the power and | 


drag extraction process involves a change in altitude, there will be a change 
in power at a given speed corresponding to the change in p even if the pilot 
does not change his throttle setting or RPM.. To account for this we need to 
multiply the expression for power by (Ref. 8) ees — hay es, 


My 
. oy 


, 


where p_ is the standard sea-level value of p and p_., is the value of patie ie 


the begP?nning of the maneuver. 
| The parabolic form of the speed-power relation used in equation (6) is 
obviously satisfactory over small differences in speed and should represent 


_ the thrust horsepower of fixed-pitch propellers reasonably wel! over most of 


_ the aircraft's speed envelope. The higher efficiency levels provided by a 


2 constant speed prope!ler at the lower speeds, however, makes it necessary to | 


employ a higher order polynomial or other function having additional degrees 


of freedom (coefficients) to represent the thrust horsepower adequately over — 
_ @ wide speed range. Variants of one such function were chosen for further — 


study: 


or A ee ae Pe 


‘These are shown in Table Illa. 


= One will note also that the drag expression is really satisfactory only 


if-a is measured from zero lift. Since the angle reference for flight data 
is often quite arbitrary, it is difficult to establish the angle for zero. 


lift @ prtort. To accommodate an arbitrary reference, f.e., to replace a by ~~ 


a- a. in equation (5), requires that the representation for C. contain all. | 


powers of a through 6. ¥ ) ‘ 
of the following form which are shown in Table Illa: nie 
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POWER AND DRAG COEFFICIENT MODELS 


(1) Cp. 
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TABLE II-a 
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Model CQ 


— , 00025010125 
— 0.027715936 
02193206335" 

—.-  0.041300870 
— 0.041723838 © 
~~ 0,.032149511 | 
0.052512561 


— 0.053437421 


0. 104358253 
=0.007815849 
0047922733 
0043314322 

--0. 140402432 
~ 0.035099999 | 
.. . 0.035099999 

0851148482 
~ 0.019408889 
~-  0.035100000 
7097803213 
0035099997 
—. 0.035099849 
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~~ 0.035099983 — 
- 0.035100002 — 
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 1.083170012 
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- RECOVERED RESULTS WITH VARIOUS MODELS = : 
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_ Generally, the more general models are more sensitive to these errors so that 





The three drag expressions and the eight power express fins give us a 
— total of 24 analytical models with which we can attempt to fit experimental 
data. J+ wil] probably be necessary to employ all of the models or at least 


/ permits one to discard those models which do not apply. The results obtained 
by fitting all these models to the theoretical data of figure 24 are shown in | 

Table IIIb. If one-compares the results for case 5-2 with figures 22 and 23, 
one will see immediately the very good agreement which the extraction method — 
can provide. | | aa | 
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One may alSo ask why should one also employ a mode! which is simply a | 
reduced form of a more genera! model? The answer fies in the extreme 
Sensitivity of the coefficient solutions To small errors in the data. 


under tnese circumstances a simpler form may yield reasonable results whereas 
the more general form may yleld nonsense numbers. It should be recalled that | 
since any power, if accompanied by a suitable drag, will solve the equation. 
of motion, these Physically absurd numbers are legitimate mathematical | 


solutions. How then does one determine whether the solutions obtained are 


reasonable? 


| The first means of assessing the reasonab!eness of the solution set is. 


oy to use them along with the experimental data in the proper form of equation 


(8). For 300 data points a value of § < 10-15 generally indicates coefficient. 

values within 1% or so of the correct values. (For the exact coefficient — 

values, S < 10-21.) Coefficient values in error by 5%, for example, may . 

— Still be of interest, but with errors of this size it may become difficult to — 

_ identify the best model and coefticient set merely by checking to see which fia a i 
model gives the smallest value of S. Oia Will mow be on the order of 107° — Rk re 

_ for 300 points, but the coefficient set for Sia may give absurd powers and _ 
drags. For this reason it fs desirable to add a second constraint which an 

acceptable model and coefficient set must satisfy: The horsepower for any . ye i 

_ Speed must be positive and less than Y (Y = 400 for ATLIT); C must be 3 

_ positive and less Than Z (Z = 0.12 for ATLIT) for any a. One°frequently finds o- 
that with noisy data very few of the 24 coefficient sets satisfy this second so 
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e.g., 1% of the maximum value of V(t) during the maneuver. These scaled noise 
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- Effect of Data Errors on Coefficient Extractions 


We have noted above that by operating on exact data it is possible for 


the coefficient extraction procedure to recover the values of the coefficients — 


in the power and drag polynomials to six significant figures. We have also — 
noted that this procedure is quite sensitive to data inaccuracies. In order 


to place some quantitative bound on this sensitivity, the exact input data 
were artificially degraded and resubmitted to the coefficient extraction 


- procedure to determine how the coefficient values were altered. Two Types 
4, £OF degradation were employed: random noise and constant bias. For the random 
- pdige a random number generator was employed at each 0.1 seconds of each trace — 


and the output scaled so as to be 1% of the maximum value of the function, 


values were then added to the exact function values to obtain the degraded. 
data. For this experiment, all data which would normally be measured in _ 


tight were degraded. This was too noisy. No coefficient set would satisfy 
_ the reasonableness criterion. - = 4 . | - | 


- a The data were then filtered with n= 10. For comparison, the filtered 
and unti{tered data are shown in figure 28. Note that the filtering routine 
does a very good job of removing the high frequency noise. Note also that 


employing a random number generator in the manner indicated means that The 


random noise usually has a non-zero mean (bias error). Despite the filter- 


ing, the coefficient extraction routine would not yield reasonable results. — 


{t also failed for n, = 6 andn = 4. The magnitude of the random contri- 
butions was then reduced from $4 of maximum signa! to 05.1 bse With no filter- — 
{ng the extraction procedure again failed. However, with filtering (n, = 6), — 


two mede!s gave reasonable results. These were 
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16594.89367 + 1308.3421V = 3.024425V* 
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027766 + 1.34560802 + 1985.15650°. 


eps 


‘The. second of these (see also Table IV) is the correct functicnal form. 


much as 73%, the recovered power, for example, is only in error iy 6.3% ar OO age 
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‘Although the coefficient values for this form Individually a~2 in error by as 


- #t/sec. The errors in drag are even smaller. 0 
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A second experiment degraded the data traces individual ly by a constant | 
Dias error. Reproduced as figures 29 through 38 are the recovered speed-power 
and drag-alpha characteristics for various bias errors compared with the 


_. undegraded characteristics used to generate the data traces. Generally, the _ 
_ Characteristics for the largest bias error which can yield reasonable results 
are shown along with the characteristics for smaller bias errors so that the 


reader may assess the linearity of the change in characteristics with the | 


change in bias error. Note That weight and altitude bias-errors of the magni-— 
tude shown are-not particularly serious. As might be expected, bias errors in 
airspeed affect the power determination primarily and have little influence 


on drag. The same is true with regard to bias errors in V. Bias errors in 6 - 


and a, however, are extremely destructive. Even a 0.7° error in @ results in 


about a 10% error in Ch while a - 1.9° error in ® results in an error of 


about 37% in C, . The @ase for a bias error of + 1.9° failed (I.e., gave a- 


‘power exceeding’ the limit of 400 H.P.). An angle of attack bias error of as 
_ tittle as 0.1° is noticeable in the final resuit while an a bias error of | 
—1.6° results in drag and power errors in the neighborhood of 30-40%, tn 


_ addition, the shapes of the curves are altered drastically. 


These results demonstrate the extreme sensitivity of the coefficient 


extraction procedure to typical noise and instrument errors encountered in — 
flight test work. This is true even after the data have been filtered to 
_ remove the noise components which occur at frequencies above the usual air- 
craft responses to contro! deflections. Thus, to obtain accurate drag and 


power data using this procedure some means must be employed to reduce the 


_ noise components in the data at what might be termed signal frequencies. — 
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Reduction of Noise at Signal Frequencies 


‘The filtering technique areieesd: previously has been shown-to be highly 
effective at suppressing noise components in the data at frequencies above 
the principal components of the aircraft response. There may, however, sti! | 
be spurious contributions to the filtered signal from instrument biases, 
changes in instrument gains, and atmospheric turbulence at. freauencies below 
this. cutoff value. These contributions cannot be removed without emp loying 


additional information about the system. Since we do not know precisely the 


nature of these contributions, we wil! make some assumptions, based on our. | 
knowledge of the physics of the situation, to provide the required additiona| 
information. If we do this properly, we should be able to improve on the. 


_ results produced by error-reduction techniques which assume the "noise” in 
each. data channel to be ante? with a zero mean. | 


| filtered altitude and velocity data are correct as ae stand. The other. aie 


channels. (a, oy W, a, and 8), we-can be reasonably confident, contain bias, — 
ae and. various types of frequency- gependent errors to some” degree. be 


oR ener to extract the coef ficiérits of the power and drag models © 
‘successfully, we have shown that we must have self-consistent data on which =. 
To operate. If any data channe! contains spurious information, this severely 
limits our ability to extract the correct mode! with reasonable coefficient 
values. Thus, it is important that we take steps to assure, at the least, 
that our data set is self-consistent. We will therefore adopt-a policy of | 
modifying the filtered measured a, @, and W data so that they form a con- as 
_ sistent set.with Vand h. So long as these modifications are not excessive, 
say greater than 1% of the maximum data values, we can justify our changes» 
by saying that the altered values stilt lie within the normal error bounds 
of the data". Ege OE Ses ee eee Se 


"ie Reduction of Bias Error in a :- 


We seek TO modify « 1 initially in: order to. remove Significant bias 7 


: Segara: ‘To this, end we write equation (6) in the. form 


% 
This isa somewhat dtepersnt: approach eon: +hose woualiy used to counter 
the extreme sensitivity of the least squares estimator to noisy data. Most 
investigators employ different, less sensitive identifiers (e.g., Newton- 
Raphson Maximum Likelihood, Gram, Kalman Filter, etc.) which may include 
provisions for treating certain: types of random ‘noise; but they do not 
modify the input data as such. According to a private communication from 
Dr. G. J. Dobeck of the Naval Goacia Systems. ‘Laboratory, Panama City,.. ark 
Florida, the best estimator for a particular. problem depends upon the erebe 


fem. Since the present problem is rather different from those usual ly 


described Inthe literature, it-ts not” surprising that the more common proc 


wees wnat et cee 


cedures are not readily. adapted to it. For the reader with a good mathe- ca 
matical background interested in a comparison of the characteristics of i eee 


several: of these identifiers,Or. Dobeck's Ph.D. thesis at the University of os PA on 
~South Florida, “System identi fication. and App |Icat Ton: to Undersea Neh chests 202 
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(This form will be the same for each of the 23 other models used to represent | 
_ The data, only the values of B. and 5, Will be different.) The result of 4g 
_ This computation is then the amount which must be added to a in order Te a f 
Minimize the fit error for the Particular model employed. Since we are not | 
certain That the model with the lowest fit error using degraded data is t+he ony 
best model when the data have been "treated", we will add only 2/3 of Aa to | 
a. before we repeat the extraction process. The result, we then assume, is Bab sigs 
_ The smallest fit error which can be obtained by removing a bias from the a | 
data. - , a a SS 
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2. Establishin the Probable Values of a and the Coefficients of the 





Since the equation has been shown +o be most sensitive to errors ina, 
we wil] endeavor to employ a procedure for establishing the Proper range of 


a values which Is not heavily dependent upon the value of a, We begin by 


Bly peta ort 


| choosing to fit the data in a least squares sense with the model : 
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This power model was selected on the basis of early full-scale wind tunne| 


Test results as being a reasonably good representation of the actual power 
into the airstream. We recognize in addition that the equation relating 
forces and motions normal to the flight path can be written i ee 
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A Is available as a consequence of the filtering operation and Ror, alters 
_ nately, ¥ can be obtained by spline fitting the f data or the computed values Sa 
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= coefficient is - 


of Y. Note that these equations involve only velocity and siethads (which 


we have already assumed to be noise-free) and their derivatives. In the 


Interests of data consistency we have cnesen To ignore the fact for the time ’ 
being that Y is also 6 - a. | | 


Now (81) can be rearranged to baal: the form 


oy) rane A 5 a a.cos ¥ | absine (85) 
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We know also that a reasonably accurate reps vesentation of the drag 
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With the power wees iepTatned: trom (80): we | solve poe e (t) ben (85), Given 


These values, we find Por Sp y Cae »-and Cy from. (87) in a least Squares — 


=O 
sense. Using the value of PB. found in this 4ashion, we reenter (85) and ‘ttn 
a new value of C; (5). This: Ts: then used -to extract new. values OF. Pos eos , 


Cy. , and C from (87). The process is repeated until the change. in the: four” 


‘D2 
coefficients ‘From one iteration to the next is. less. than 0. o01e 


he. ‘o a ents of the foregoing, we now aes ‘de eeaesnee ly eae eiehive: i en op. 
OTOP le. Tals we then fit to the bias-free a-data by a |east~squares- a co 
‘ —disthnce- routine (described in detail in NASA TN D-6374 and also” in a later. — 

"ean of TNS: ee ake Ae poate model : a , 
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- Initially we assume x = 2.0 in order. to solve for ‘CLO by a. linear least 
Squares method. With CLO determined, we subtract the term CLOXO from C 


before we apply the least Squares distance method to determine new values ! 
for the remaining coefficients*. We will assume that CLQ has this same value 
for the remainder of the data reduction procedures applied to a particular 
data set. The LSD routine determines the values of,coefficients CLAO, CLA, 
CLAX, and x in this model which minftmize the perpendicular distance from the 


curve hephesedted by £88) a) the: data points. 


We then adjust the values of a at every time ase so that they satisfy — 


— (88) exactly. We employ. for this POtass a second. order New ton-Raphson : 
_ procedure: lf we call | 


fla, ) (CLAX) a + (CLA) a, + CLAO - {C, = CLOé]} == (89a) 
TS ) = (X)«(CLAX) a | SCR ee Ee Ob 
ee : : ee | nt ae Pe 
FM) = (Xe (XT) (CLAX) a : —(89e) © 


Gers a is the Blase free value af the a-data at time. point i, Then the | 


value ofky Ketucee te a, which will make Fla, ) + 0 is given by 
. | KHL ok | kth 





We recognize that the. values found fot CLAO, CLA, CLAX, and x will vary 

-. somewhat as the center of gravity location 2 and to some extent the ne 

and altitude - is changed because they inciude a lift contribution arising 
from the elevator deflection required to attain trimmed flight. This lift 

- contribution varies only with speed - hence a, if the weight and altitude 

are relatively constant. In maneuvering flight an additional elevator 
deflection (and thus an additional lift component) is necessary to induce 
rotation; this can be accounted for by a term proportional to @ so that the 


a contribution found by the LSD method wit] then be virtually independent of | 


rotational velocity. At a given c.g. location, initial weight, nominal 
altitude,. and throttle position, +he CLAO, CLA, CLAX, and X found by ee 
approach should be the same whether the aircraft performs a level flight... 
acceleration - deceleration or a pullup - pushover. ‘The values of CLAO, 
CLA, CLAX, and xX; however, may also depend upon throttle position because 
(a) the thrust axis. may not intersect the c.g., (b) the lift distribution 
. over the wing may be affected: by the application. of. power, and (c) the flow 
field approaching the horizontal tail may be altered. For this reason. The. 


coefficient values should be determined at several different power settings, 
ae. _ . different altitudes, and different weights. One would also. uae the a drag : 
7 eg oe values to be ‘somewhat cag ga upon poner. level. eee Ege | a 
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The choice ‘OF signs on the radical-is nade according te the following — 


| rationale: 


TEMG etm ) <0 use the negative Sign on The radical. 
ee a bo ee ice eu a 


rs Tf, D+ Ma, ) > 0 use tha positive sign on the radical, 


_ Occasionally, — : 
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7 during any particular iteration, and where Aa, is defined® by 


and see if | f(a, yi< fetta, )}. As long as 
ee eee Pes : 


| F(a, )| < |fla, )|, use either (90) or (91) as indicated. | 
ne ore ktn=1 | oo 2 


4.. Continue until either |fla,.)] < 10 | 15 


k+n etn 


In the former case the new root is found with sufficient accuracy. In The... 

: latter, a real root does not exist close to the starting point and we select 
_ the value of a for which f(a) approaches. zero most closely. Note that the 
use of a least squares procedure does not guarantee. that the coefficients 
_ chosen. for any particular data point yield a root, only that The sum. of 

— Ct (a,) 1° is.a minimum for the particular model used. Thus, an individual 
f(a.) may be non-zero with no crossing of the abscissa for any a close To a. 


— With the revised set of a values given by the foregoing procedure, we 


now reenter the coefficient extraction routine, i.e., equation (6) or some — 
alternate version thereof, with y = 9-4 to find "updated" values of the P — 


- and C, coefficients. We look, of course, for the model giving the lowest fit 
error. Its coefficients, along with the data, form the basis of our next 


3. Modification of a-data to yield a more Consistent Data Set 
In this step we seek to modify a slightly at each point in time by a 


- different amount so as to (a) more nearly satisfy equation (81) at all times 
and (b) reduce the fit error obtained with equation (6). We begin by using ~ 
the latest power data in (81). and solving for C, (7). With the least-squares- 


distance procedures we then update the values f r CLAO, CLA, CLAX, and X. © 


Sf we now substitute for a, an "improved" value which is given by 


| a, + F Aas, 


"where F is a factor permitting us to apply all or part of the correction = 


ha, Is the value by which a, must be changed to.satisfy (81) exactly. We 2 s. * 
—— coliid of course, employ our Newton-Raphson procedure to determine It. We 


have chosen; however, to assume that 4a, Is very small and can be represented — 
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‘Then the sum ioe the squares of the amount by which we fall fo esricty equa- 
tion (81) at each time point (a quantity which we call So ) should decrease. 


We will usual ly take F = 0.3 on the first two iterations. “and 1.0 on sub- 
» Sequent iterations. Before we substitute oe + FAS a for Oe Tn equation 


> AG), however, we will update +he O-data so that it is more consistent with 

both y and the revised a values. We assume for the present purpose that ¢ 

. contains a gain error and a bias error. which we wilh determine by fitting 
eo @-data with | | | ye 


sin’ oe - a, +FA a, =A 6, +B (94) 


; a order to. determine A and a in a least squares sense. The. new oF is 


simply A or vie This value of a plus the revised a “value are Hes ene 7 


lold 


- stituted into the spscenriate version Or equation. (6) to extract the coef- | 
-. ficient values. With new power coefficients from this extraction the cycle © 
Is repeated ei: the fit error, S, reaches a minimum, usual ly in two or © 


three more iterations. This minimum is determined by comparing the fit 


2 error after each. iteration with “the. tT: error cea for the ne ae Ge 


1H will ne observed that the power, computed ‘using the Seeri icici 


py from the jast extraction, is the principal mechanism by. which | dat; 
vt te modified in (93). “lt will also be observed that Aa, 1, is relatively 
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“‘tngens [tive to very small sheneee in power. AS a result, when the fit. error 
for 300 points is less than about 10710, the Aa, are general ly 2x 1074 o 


less. These smal! modifications ina result in total power values mica: 


are very little different from those of the previous iteration. Hence, the 


- rote observe that. as a. consequence of (96) only, act) and won are. “unknown in. eae 


reduction in fit error during the next iteration becomes miniscule. ‘Some 
other means must therefore be employed to speed the reduction of ne fit. 


error to the desired range of 10713 or fess. 





4 Modi fication of a-data by Trajector Comparison 


_ What we have as a result of the previous procedures is a set of lift, 
drag, and power coefficients obtained in a least squares manner from input 


| Vv, h, and W data and modified a and ® data. We will now use The coefficient 


set and some assumptions regarding the accuracy of the input data to calcu- 


late the trajectory of the vehicle during the time in question. As the 
vehicle moves along its trajectory in the terrestrial X-Z plane, its 


position in space and its orientation may be described by a set of time 


histories. These time histories are the solutions of the system 0 “equa- 


tions (6), (81), (82), and (85) Plus the peletionship 


co Woe ae oP a ae . (95). 


Where c is the speci fic fuel esheumb ton: Examination of the system will 


show that two of the 5 time histories must be speci fied a priori in order 


+o obtain a unique solution. As we have indicated, we choose to assume that 
V and h and their derivatives may be considered to be accurate and noise= 


free. As. a result we may poaaity: as a the Following, time histories: 
ee ake net) 2, om, GP ac 
WG) AG en ico =a ne (96) 
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_ This permits us to determine WOT) given its initial value. With the results 
of (98) substituted into (97), we may solve (97) at each time point for a. 

| using the second order Newton- -Raphson scheme. Thus, we can determine the 

' a(t) which is compatible with any particutar set of ee Cae and P coefficients 

| and the time histories aver by (96). | 


Rosie eo 


a(t) ‘found in this: manner will not be fhe: Same as that found ee es 
3 above. We desire to modify the a-data resulting from step 3 so that it _ 
will be somewhat closer to that Sibeg by the trajectory computation. At the 
same time we wish to modify the C » and P. coefficients so that they wil]. 
yield an a-trajectory closer to the 3h resulting from step 3. We begin as 


follows. If we cal | “n, the value of oF resulting from step 3 and a the 


result of the trajectory calculatlon, then the result we seek is ‘to minimize 
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| In order to minimize ) with uenee. to all ‘elcht c. “and c coefficients — 
| simultaneously, we observe that a first order Taylk..’ serfes peters TOE: 5 
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2. fae is in effect a generalized first order Newton- -Raphson procedure. 
With the Cy hs values subst tuted into (97) we determine a new trajec~ 
KAT a. _ 
“tory. We call the at “values for this new trajectory a We then defing” 
Cd Oy My Ce Oe on ee ee, 


She A A matrix in: this Emm ign? may, for some sets: Of eit data, be ae 


_ rather i |-conditioned. | As a result, the values of Cy 3 obtained oa 
~ 2 k+1. 


| > various. solution Seenntaaas may all be substantial ly. in error as well as. oa 
oo different. The user should therefore. employ the actual ‘technique nn a 


an subsequent sections of this report. with care until the. Pepsonabisnes 
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Here, W. are “the. input values of the weight and P, are the values of the a6 
_ power cémputed using the latest power coefficient. : Gees ee 


point that the extracted coefficients are usually sufficiently close to the. 
“correct” values that they can forma useful eter Ting set for the application 
Of a slips Raphson- identifier. ca : S50, | | 
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and others is a means of finding the values of unknown coefficients in the. Ta 4 
oe equations of motion which tend. to minimize the ‘squares of differences eee 





and 9, =. Y; + an . With era Wallugs: plus the measured values of Vv, Ve, : a 4g 
Pie Y; , ee W., we enter the coefficient extraction routine and “7 C, vs, | aa 


a curve fit phocedure to obtain new power, drag, and lift “coefficients and 


to check the Feely ing fit error. | | eae 


Prior to beginning another iteration of this process with the latest 
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om on, Cs in ne fol lowing TAeNOne — | 
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By repeating The foregoing eralcelory comparison with the updated value 


of ny Two. or. three times,we arrive at a situation where both the. a values | 


+, 


and the fit errors have improved. By this time, however, (a wer ) 0,5 


SO that no further. improvement is possible with this approach. 


“It will be evident after a short reflection that if a negative Cy is 


‘obtained. during a coefticient extraction, the imp lication is that a for zero 
lift is positive: This is a condition the designer of the aircraft will | 
usually avoid if he is aware of it because it leads inherently to high cruise 
“drag with conventional quasi-symmetric fuselages. Thus, if the minimum fit. 
error mode | contains a. Cy which, as a result of the least squares curve fiz 


- procedure, yields a a, 2 vatue, one would appear to be justified on spyeiean 
grounds in using as the basis for further operations the most similar model 
having C, and C. 20. This is a procedure we wil! usual ly follow in applying” 


D, Ds 


the foregding trajectory comparison to reduce ne noise in the a~channel. 


it is. necessary to pOIntOuT, however, that. light aircraft fuselages. tend. 


to be very non=-symmetric about their x-y planes. It is possible, because Of. 
his asymmetry , that the minimum fuselage drag does | not occur when the relative : 
wind is parallel to the x-body axis. If the existence of this condition is- Paces 


oe 71ers the aircraft under test, the negative: value for Cy must be 


The. eens aie aba led: from the ead eatecnory comparison described tn this” 


Coe and the preceding three noise-reduction steps has been to reduce the 


noise in the a and 8 channels and improve the overall! data consistency to ma as 





lication OF Newton= -Raphson Identifier 4 


The Newton-Raphson Identifier. as ane loved: by. Taylor and {liff (Ref. 15) 0 a 
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between the measured time histories-of aircraft state parameters and computed 
solutions to the equations of motion involving the same parameters, It is 
assumed that the solutions change linearly with a change in coefficient | 
 ; value. Furthermore, since the equations of motion used by Iliff and Taylor 
ese are linear first-order differential equations, the solutions are readily 
/ _ determined and the "cost function" minimization procedure can be joined with | 
_. the solution procedure without undue difficulty. When forming the cost = 
function it is desirable To include as many independent differences between 
po measurement and computation as possible, since the more closely the number 
; of differences approaches the number of unknowns in the problem, the more 
determinant it is, I.e., the more likely the procedure is To give reasonable 
coefficient values. , | | . 
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The present problem differs from that of Iliff and Taylor in that the 
i equations of motion are non-linear. The solution procedure is therefore 
quite different, much more complex, and must be carried out independently — 
of the minimization. The minimization ytelds a linearized approximation to _ 
| - the change in the coefficient values needed To minimize the difference be-- 7 
; tween the flight time histories and the computed values of the same states. a 
! In the limit as the differences approach zero, the linearized approximations 
approach the exact values. Another significant difference from the Litt si 
and Taylor approach is that the present equations of motion have no specific. 
forcing function(s). As noted above, any two states which are known a priori © 
may serve this purpose. We have chosen to use the true airspeed along the 
flight path as the principle forcing function. Since the power into the © 
airstream is specified as a function of true airspeed fin our formulation of 
the problem, the power at any time is known if the coefficients in the | 3 
power=velocity model are given. We use as initial coefficient values for | f 
this model those obtained from the previous noise-reduction procedure.T : 
With the power and velocity specified as functions of time, it is Then | 
possible to determine a unfque trajectory. The procedure is as follows: 
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The determination of M(t), a(t), p{t), y(t), y(t), and W(t) by this inte- 


gration procedure provides the raw materia! from which one can form and evalu- 
ate a cost function. It will be recalled that we have assumed the measured 
values of V and h and their derivatives to be correct. We can, as a result, 
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This is +o account for the fact that because power is a small term in the 
-Y equation, the parameter values from this equation wil! be more in error 
- than those from the V equation. The correct a priori values should there- 


fore lie closer to the parameter values derived from the V equation. The 


reason this procedure is effective is that when power is specified the 


system is actually determinant* at every speed; thus, specifying a priori 
values for the power coefficients wil! cause the system to converge fairly 


rapidly to some minimum. If the a priori values are exact, the lift and 
drag parameter values wil be recovered with gow! accuracy but not exactly. 
The trick then is to choose G properly, use The ¢irst method, or develop - 
-— gome combination technique. Unfortunately, experience in working with the = 
system is necessary in order to select the best approach. This situation, ~ 
t+ may be mentioned, is not uncommon in parameter identification work at the 
- present time. | _— | | 


 |# the a priori technique represented by equation (134) and its sub- 


sequent relaxations is permitted to go through a number of iterations one 


finds, not surprisingly, that the changes In the coefficient values get 
smaller and smaller each iteration. To permit this situation to continue 
beyond a certain point is (a) not cost-effective and (b) does not guarantee 


‘convergence of the coefficients +o exact values. To aid computationally 


in the convergence to at least a local minimum those coefficients which do 


not change at least 1.5 x 10-6 +imes their value are "frozen" and the system = 


reduced accordingly. CLA, however, is treated differently. When | 
ACLA/CLA < 1.5 x 1076 but still positive, CLA is increased by 1.0 x 107°. 
This is done because it was found that CLA is the key parameter in determin- 


‘Ing which local minimum the system converges to. Near the correct value of 


CLA the state space must be very flat because the system will converge** to 
a very small cost function for any. value of CLA. This value of the cost . 


_ function will be very slightly greater than the global minimum so that the 


prospects for reaching the global minimum without some "nudging" of this 
kind are quite remote, Bree bY oe) ae ue oe Ge eS 


oo | Ss oe on ee or ~ 
That is to say the total lift or total drag are determinate. The | 


individual coefficients in The polynomial expansions for lift and drag 
—. must still be found as before. — a eee He & Meee es 


despite numerous additional iterations. 


** By converge we mean reach a value from which it will not differ 
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pniedel: the fit error is 0.11828259 x 10 
CC, eC. +C. Cé the at error becomes 0. 50286167 x AO: and The: coefficients — 


are | 


tes 0,002165527 + 6,55768976e ~ 0, 382376907 





EXAMPLE APPLICATION OF NOISE REDUCTION _ 


oom ok ee ” 


AND “NEWTON -RAPHSON PROCE DURE 


= 


The efficacy of the foregoing procedures is indicated. by the following 


example: If only the a-channel of the theoretical data set is degraded by 
ha random noise and then filtered with hte 10, errors remaining ina 


max 
are still on the order of 2 x 10 ae radians. When this computed data set fs 


submitted to the least squares coefficient extraction procedure, the fit. 


error obtained for the al al mode | is 0. 294823 x 10 74 and the six 


_ coefficients « are: Mae? ae ft Gee fs 


7 
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= 49398, 169 ee ae Haak 


1.390709638 
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857.520129 en 
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= = 1,005276788 + Saag! MQ. 8 °49475263799° 


re The a-bias error found (-.111455 x io is too smal! to Justify a correction. 


‘When the data are fit with @ power model of pl 
a When the drag. mode! ts changed to 


and a five term drag | 


ee 


= 31825.6829 
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= .036226989 
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“The program ‘then uses a ‘least-square distance routine to. fit the bein 


je the c values found from. the y-equat}on. with the. following: result: 


ngs 
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iiss individual a “points | are then moved to satisfy this equation, 


- When the See rticient est aceon is repeated, “the fit error oe the 


es es correct mode| is now reduced to. 0. 1846867 x tore and the coefficients are 
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seit 4 C, = - .001782573568 + 6. 348881174 - 0.3160536a' 


‘The es comparison procedure yields a fit error of 0. 19912 x 107 
with the following coefficients: : | 





; The Cc coefficients are then updated with the: result that 


C, = - 0.0017838557 + 6.34847 - 0. s10s4ou”” 0304627 


After 4 iterations of the a-modi fication procedure discussed in -gection & 
3 above, the minimum fit error for the correct mode |. fs 0. 33751 x 1077/7 and 
Sane coefficients: are 2 | | 
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. 26881. 7756 ys Gs ,033792832 


= 1156.25239 ye a? Ae OG 
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= -2.3179596 — Zc 2017.21169779 Se 


the litt coefficient equation has then become 
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it is at this point that the Newton-Raphson Identifier is first applied. 


 - Using the foregoing coefficients and the latest value for the specific fuel 

consumption, we compute differences between the "measured" values and the | 
- fatest calculated values of the variables along the flight trajectory as well | 
as the values of the partial derivatives at each point. When these are. 

properly summed and placed in the appropriate A and B matrices, we solve the -' 

system of equations to find the quantities by which the coefficients should 

~ be changed to reduce the difference between the. "measured" trajectory and . 

: the computed trajectory. . The new coefficients found oy alabr iterations of 

crue ee are then — | | 


»-.258462095 x 1077 
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_ When these, along with a revised 


Tables V and VI show the result 


— sively noisy or otherwise err 


Such. errors Successfully and 


the present case the reduction in fit error was more Than eight orders of 
_ Magnitude. | So 43 


_ large as for the test case) and no reduction 


Incompatible. 








specific fuel consumption, are used in the 
» the fit error is less than 6 x 10712, 
S achieved after 29 iterations. The fi¢+ 
error at this point fs 1.3336 x 107-13 and the residual error in a averages 


about 1.2 x 107) radians. Additional! iterations may be used until the final 
fit error of 6,553 x 10714 i ries computed 


ical coefficients ——-1S approached. Note that in 
erage residual error jn o is less than 0.6928 x 1079 


Subsequent trajectory computation 


| »000. There is evidence to suggest, however, 
that most of this error is a result of + 


he use of only 16 decimal! digits in 
» USers with an extended Precision 
t error to be somewhat lower (% 10742) , 


the integration routine. In that event 
capability should find the ultimate fi 


_. The example cited here shows that with flight data that are not exces- 


oneous, the simple least squares procedure 
Ort can be extended and modified to accommodate 
STII! produce reliable coefficient values, 


described earlier jn This rep 


= When this more powerfy} Procedure was first axplied to actual flight 
data, however, the initial f 


it error was about 1071 (about 1000 times as 
could be obtained. Examination 
» and sin-!(f/y) data were very 


lt was Immediately obvious that it would be necessary to 


of the input data revealed that the a, 6 
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TABLE V. 


 G=values after 
_ smoothing by low- — 
pass filter 





1648561 


. 1646336 
. 1642220 
. 1635306 


1627125 


- 1622586 


. 1621283 


. 1620319 
«1617028 


. 1609460 | 


1596614 
. 1578413 


14855447 
41528620 
—. 1498808 
«1466639 

—. 1432434 
1396289 
1358230 
«5 1318381 
a” 277057 
_ 41234775 
—  £1192182 
51149943 


11108633 


— 


. 1068668 


~ 1030291 
0993605 
 £0958635 
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50896943, 
-, 0867033 
0838952 
"230812729 
0788341. 


0765706-< sb ef 
0744685 

0725120. 
(0706878 
0689884. 





EFFECT OF NOISE REDUCTION | EFFORTS ON RANDOM NOISE= CORRUPTED a= 
(OTHER CHANNELS NOISE FREE) 


~ a-values after 
application of noise- ~ 
reduction program | : 


(162610 
162650 


162726 
. 162858 
. 163017 
.163060 
«162896 
162473 


161753 


~ 160710 
~ 159317 
» 157549 
155404 
. (152898 
. 150048 
. 146872 
- 143406 
- 139697 
. 135794 
S174) 
127589 
- 123383 
~119174 
- 115007 
.110919 
. 106936 


.103087 
0993959 _ 


0958769 
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"0896856 
0866978 © 
0838976 
40812796 
_ 0788380 
0765671 
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070004. & 2.3 
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- 1625865 
. 1626264 
1627021 
-. 1628342 
- l1é29993 
1630357 
. 1628721 
. 1624490 


14617295 oo 
- 1606867 | 


_ 1592940 
1572621 
.1553815 
. 1528759 
. 1500260 


. 1468503 | 
-1433850 
21396771 
| cya ey, 
= ah 1317222 
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41109024 
41069206 
_at0S0717: 
0993814 
0958629 
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10896724 
0866851 
sate 40838853 
10812676 
40788264 
~~ 0765559 
~ .0744487 
0724962 
- ,0706899 
— 0690211 
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e TABLE V. (Continued) 





ge ft - a-values after a-values after 
Pie smoothing by low-: application of noise- 
he pass. filter © | reduction program 


Theoretical] . 
a=values 





201 4067414374947 ee 0674817 

eee, Gea, * , MOGDOTIA: % G* Beis * 0660735 | 0660637 

Qik 40646669 0647690 47504 

216 10635016 606357020 0635607 

220 06246470 0624701 0624609 

! — 22600¢<C~S—~—~—s 0G 15B1D ; — 9061462700 0614536 

231 06 06668 605417 a 40605327 

| _ 236 ". - | 0598368 — 0597010 596921 

ee gt OQ0lGe: =. wh wt, -0589354 =, 0589267 

(46 0582159 6058240500 (60582318 
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ee Es «80007929. ee (0570444 570357 

2 2610 oe ob62780 8 0565344 0565260 
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29060 
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60557777 


-0557012 
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«0552280 


. 0544669 
0531435 
0524357 


0556742 


.0553170 
-0550045 
» 0547339 
0545027 
-0543080 


0553088 


0549963 
- .0547258 


~ 0544945 
- 0543000 


0542399 0542318. 
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Fit error = 1.3336 x 107 
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TABLE VI. COEFFICIENT VALUES OBTAINED WITH NOISE REDUCTION PROCEDURE 


Theoretical values used to ‘Values retrieved from 
generate data time histories  — noise reduction procedure 


pe. 28,735.71427 28, 738. 72144 
- Fite a 1,126.60714 Z 1,126. 5699 
mpetitys S ~ 2169600097 re 

C 9035100000 — —0,03510121 


Ps 8 Ge a gger sora. 2, 8B So aezes7796 2, 


2,030.800865 - 2,028.977898 
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was added to the input @ data. As a result of these steps the Ax, 8, and 





} 
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COMPATIBILITY _ oe 
A diligent investigation into the sources of a, 8, and y incompatibility 
_ In the flight data revealed the possibility of at least the folfowing sources 
_ of error in the Individual data channels which had not been treated earlier: 


A PRIORI IMPROVEMENT OF DATA 


1.) alignment errors in the. installation of the a and @ transducers 
2. a bias error in the pitch rate gyro indication | | 
_ 3. a drift In the pitch angle indication | | | 
4. excessive lag or other dynamic effects in the pneumatic altitude . . 

and airspeed indications _ dete ite | “eG 

5. gain and bias errors in the Pressure instrument calibrations and gg 
In the position error calibrations : ae 7 | 7 oe | 
Ss 6. a phase lead in the @ and temperature indications relative to the 
_ other. channels | : wt Swe ane ‘< 


It Will be appreciated that many of these effects are not readily quantified 


in the usual calibration procedures. To make the flight data sufficiently 
_ self~compatible to be usable in the lift, drag, and power extraction routine, — 


_ the filtered input measurements were altered as fol lows: 


1. A bias, calculated from 


8 = sin any ~ 8, F : ee Lee 


/ was added to the Input @ data. The subscript N refers to the last data 
value in the set. — : oe ee 


eee A bias, calculated from 


& traces were found to be quite self-consistent. If the time integral of 


— O did not then match 8(+), 


| 3. The phase lead of 6 with respect to the other data channels was _ 


. found by determining the value of t which maximizes t. 


| sea The phase lead was eliminated by dropping t data points from the beginning cae = 
| of each data Trace except @ and temperature. oe ae aa. < 
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- whence (138), can be written 
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The enieiiatig to sehernins the compatibility of the pneumatic — 
(V and h) with the Inertial data and the angle of attack follows from the 


- kinematic equation for the long] tudinal Beey axis acceleration. ane the 
definition of rate oa climb: 


ze 


Ax = A V cos a + v6 -a)sinat+g sin a Wis a (138) 7 


il 


Examination of the first equation will show that if one assumes that 


as a result of 1, 2, and 3 above Ax, §, and 6 are now correct and compatible . 


among themselves, a compatible value for either V or a can be found by 


solving a differential equation assuming the other variable to be correct. — 
tf one assumes that @ is correct men a compatible value of v(t) is. the 
, eo unlones of the equation: | | | 






ax - 





. -.g.sin 6, 
| g sin j 
cos @, 

J 
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ak the: initial ‘condition ae V ‘from pneumatic data at the fipeedate - 


| This solution is sbieiged ante panda the technique described 
earlier to integrate the Cees equations (112). | 


If, on The other Rend; V is assumed to be the error tnee: yupleptae 


a can be determined by a ‘slight variation of the same solution Preece, 
4 ae obtain The pope form one first makes the substitution : | 


u= cosa e * 2 : A106 





Here: 5. ae the: value + of. 0. The correct value is determined by the fol low= 
a a tng: lot jes | , ae ic aaa 


(39. he ee 
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a ae ieee as S, the value corresponding to the neasured Oye 3 This vatue 
A OF ais also used to. begin, the seen a ee oo 
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-. guecessfully. 
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b. If S$; > 0, u, > 0.9999, and f-u /0S ¥« I-us +10) <9, 


then ‘the sign of S, is changed for the next value of j. 
¢. The same ts true If Si <0, u, > 0.9999, and 
ye fog 2. gO mae | 
f-u /[S (Vieus +10 '“)J}>o. 
jE; Imus dt 


The computed value of a at any point Is then” 


7 « a.= Sin hes /1=-y7} _ ae (143) 
An effort was made to calculate @ In this manner but the solutions 

had ridiculously large magnitudes. Efforts were also made to apply gain 

and bias corrections to the velocity in an effort to improve the result. 

This too failed to produce physically reasonable results. The various lag ot 
_ constants were then varisd over large ranges with the same end result. It ~*~? 
was therefore concluded. that the velocity and altitude data contained  — 
substantial errors, probably resulting from a combination of excessive Gk 
lags, dynamic effects, and perhaps incorrect gains and biases. I+ was eS 
therefore necessary to assume that a was correct in order to solve for V. | 


| The initial results were quite encouraging in that they were quali- 
tatively similar to the input data but displayed quantitative differences — 

of up to 20 ft/sec at certain times. It was found that this difference 

could be reduced significantly by assuming a drift in the pitch gyro 

_ Indication of 8 x 1074 rad/sec. Subtracting this "drift" from the input 

pitch angle indication led to a calculated velocity that usually differed 


from the input by Jess than 1.5 ft/sec. As a consequence of these findings 
4, ‘The input velocity was overwritten by the solution of (140) and 
5. The input altitude was overwritten by ao ae 


te” | Vsin (8 - a) dt +h, (144) => 


| 


where V is the result of the previous Step. Comparisons of the calculated > 
velocity and altitude with the input V and H data are shown for a typical 
~ pull-up-pushover in figure 39. Note that differences of this magnitude  _- 

would make it impossible for the coefficient. extraction procedure to operate 


he foregoing actions produce a reasonably compatible data set,  ——«s 


_ These data, when processed by the coefficient extraction program, will yield a 
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physically reasonable numbers {f the proper mode | Is available, such results 


may not be the correct values for the particular aircraft under Investigation. 
This could easily happen. if errors in the a-channel, for example, are masked 
by the compatibility improvement scheme. Note also that the solution of 

(140) is not very sensitive to the exact vatue of galn and bias used for the. 


-@ position error. Compare, for example, figure 39 with figure 40. 


, In an effort to fine-tune the data for improved compatibility before 
its submission to the coefficient extraction program, a number of other 


procedures were applied. The first represents y by.@ = a and calculates Y 


from this by the method of splines. This value of y is substituted into 
(138) now written as | - _——- 


‘Ax = Vcosat+V¥sinat+tgsine - x 8 (145) 


| Assuming that V, V, 6, 8 ¥, and Ax are known, ais determined at each point — 
_ by the second-order Newton=Raphson technique. The resulting «@ values are 
fit to the input a values using a second order polynomial: 


ee: ee ee : 
i “pata, “2 “pata, * Ks - p= 


CATA. is then replaced by Values computed from this equation. - Ky Ko and 
Kz are found by the method of least squares. Since a may now be Slightly 


7 different, new values of ¥ are computed and fit to the previous values by 


nek, ars ae a 


"One 2 ou 


with Ky» Ke, and Ke determined in a least squares sense. The new values of 
 y are replaced by those computed from The equation. | | 


22 A new Y, defined as 2k, Y. vs Gi. , is used to find new 
' Oe ee ) eyes, Jotp Jotp Jo ene | | 


ee a's. The cycle is repeated a number of times until! K, and K, + 0 End. 
Ky + 1.0 as closely as possible. a eee 


The final "tuning" assumes that bias errors may still be present in a 


and 6 and that there may be a small residual acceleration sensitivity ie: 
_ the static pressure indication. The latter js important primarily fn those 
cases where V is assumed to be correct and a compatible a must be calculated. 


't serves principally as a check when a is taken to be correct and a com | 


patible V is calculated. For this final tuning we construct the cost _ 
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aor J J 


J 


tt 
4 — . ay e : ae . 
. _ 

<= 

W 

ae 

on™ 





114.26 


+6 | VV, cos(®@, = ajdt, + At) 
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Vv cos a. + V.(8, = @.Jsth a. + X : 


AK +s. =a Neos a. & 


+g cos 0,-V. sina.) + G(V, sina, - V.(6, - a,)cos a,) , (150) 
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and minimize Jz with respect to | ae = ae OM and G, using the Newton=Raphson 
procedure. With these values we apply bias corrections to @ and a and an 
"acceleration correction" to P. . We then return to the beginning of the 


4 Ab* + BAx, + Cgsin 8. (149) 
Ae el ee eed | 


“data processing activity, calculate new velocities, altitudes, and angles of 
attack, and again minimize Jz with respect to A, B, C. D, and G. This 


procedure may be repeated until J, has in fact reached a minimum. A priori 
values may be included for the parameters if known. Even approximate a _ 
priori ‘parameter values may be used to advantage during the processing of 


the first few data runs to insure reasonable results and easier detection = => 


of "bugs". Typical results for the ATLIT obtained by applying the entire 
 calibration-filtering-compatibility improvement procedure (called FDR) are- 
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EXPERIENCE WITH FLIGHT DATA 
AFTER APPLICATION OF DATA 
‘COMPATIBILITY IMPROVEMENT PROCEDURE 


Most of the problems encountered attempting to use actual flight data 
have been enumerated previously. As methods were developed to circumvent 


the gross inconsistencies present in the data, not surprisingly some smaller 


problems to the planned utilization of the data began to become apparent. 


These were of two types. The first is illustrated in figure 43. This shows 
_.@ corrected for bias error and drift plotted against the integral of 6 | 
corrected for bias error for a pullup-pushover maneuver. Note that the 


functions begin and end near zero and the peaks lie on the 45° perfect 


correlation fine. In between, however, there is a significant difference 


between the two measurements. Discussions with the flight crew revealed 
that it was extremely difficult to maintain a wing-level, yaw-rate-free — 
attitude during the (ada er maneuver. Since in three dimensions 


6(+t) = ln (g cos ¢ - r sin $)dt + 8, , 
0 | . 4 | SO 


it is quite apparent that a yaw rate (r) combined with a small bank angle 
($) can produce a significant departure in the integral of 6, 15065. 4° TFOM 


that measured by a free gyro. Similarly, a reasonable bank angle alone can 


result in the integral of the rate trace being below the attitude gyro 
indication during pullups and above it during pushovers. This follows 
simply from the fact that the cos 4 term decreases the effective pitch rate. 


Note also that the effect is most pronounced when the pitch rate is greatest. 
Finally, there is a possibility that one of the gyros is mounted at a slight 


cant relative to the other, which would produce the same net effect. 

- The aifference shown in figure 43 is sufficient to produce a rather 
significant difference in the extracted power and drag coefficients if one 
substitutes S6dt for @ in the data submitted to the extraction procedure. 
For example, at maximum level flight speed the extracted thrust horsepower — 


- fs about 22% greater if Sédt is used than If ® is used. The lower figure — 
is more consistent with that expected, given engine and propel ler test data. 

The fit error with f6dt is also about a factor of 2. greater than with 6. 

| For: these reasons is seems advisable to employ 6 in place of ‘fodt. 


ers be The second type oF problem which became apparent at fter some ‘experience a 
with the results of the data compatibility procedure is the extent to which - 
one. could specify a priori the correct form of the lift and drag models. 
ee as had been assumed initially. that the maneuvers were sufficiently slow | 

ee contributions from terms such as “Le? i: oe “Ds » and fae be Sd) ae 


Oe 


iahecea., Tneluston of such terms in the ode! poner are the fit 


errors: by a factor of two or more. Further, the values of Sus let ; etc, 
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extracted indicated these therms could contribute as much as 10% to the 


 overal | C or ©). Thus, it seems desirable to include these terms in the 


procedure whenever possible. That these terms would be important for the ; 
ATLIT airplane was not appreciated until the development work on the Noise 
_. Reduction -- Newton-Raphson procedure was almost complete and the end of 


the grant period was near at hand. Because of the very considerable time 


_ hecessary to expand the computer program to accommodate these additional 
parameters, it was not possible to undertake this task for the present report. 
_ [nstead, an expanded version of the initial least squares parameter 
_ extraction procedure was prepared. (MDLCK. See Appendix B for description). 
— Most of tne ATLIT results discussed in the next section were obtained using 
- this limited procedure. An assessment of the validity of the parameter aan 
values obtained by this procedure can. be obtained by comparing the fit error 


obtained with that found at various stages in the test case (random com=— 


_ putation of the a-channel). 8. ag 
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OTHER APPROACHES TO THE PROBLEM ae 2 
ae Gerlach! Ss” Method 
| While the method described in the present report to find both the drag .... 
and the power from accelerated flight data was developed specifically for the | 
oF ATLIT test program, it is similar in some respects to the scheme outlined by — : 
Gerlach (Ref. 9) in a 1970 SAE Business Aircraft Meeting paper. Subsequent 
results are discussed in Ref. 10. Gerlach assumes, for example, that while. a 
‘the engine brake horsepower is known a a priori (as a function of manifold pres= 2: 
sure and RPM), the actual power into the airstream is a quadratic function of. | 
this brake horsepower. His procedure is intended to yield the values of the a 
_ three coefficients in this quadratic function. Similarly, he assumes a simple 4 
-. parabolic drag ad and a linear lift curve and the procedure is intended to ° 
. ve GNA values of C » Span efficiency factor, ©, , and C , | 
ee D_ | La he | 
| , min — , “a=0 | 
| = The data time histories used in the extraction process are optainad as 
— follows: | , | 
T; _ ee 2 
Ah_ - | | (Ax sin @ - Az cos @ - g)dt” 
Pp ie Oa kd 
q = 9 - ae | 3 : | at 
i eae 8 oe ee ee 
7: | (ax sin 6 - Az cos 8 - g)dt . oe Cet ey ee 
(itty Fh Gaps, SEO a phe? Is ei oes | ns ere ae ee ee 
@ = - tan’ : ee + [a dt caBeste anal B30 oe 
— t=0 Low me de SO een Foe 


2 Here v is sdeteantnee by the usual pressure bane fonperature ine trumenta rion: 
Ah, is the total change In altitude represented by the maneuver according Te: = 
static pressure instrumentation, At is the total time of the maneuver, ter the. 


time at the end Oo; the maneuver and. AX and Az are accelerometer. Nee ONS > 


ae Gerlach: ‘indicates tha? the dy . 8, and y values obtained this way are 


--- imadequate because of slight inaccuracies in. the determination of initial 


values and smal zero shifts in Ax, Az, and é. He then proceeds TO find 


8 


remaining constant which should turn out to be zero. The variables Kk, 5 
are said to be known functions of time but the method by which they are <7 
obtained Is not given in the Paper. Gerlach performs the same operation with | 





RO * Aha Ko Ct) ag le aes Az. K, (+) 


AAh(+) = Adhy + 40, Ay Ky 


_where the AAh(t) is the difference in the altitude obtained from pressure 
data and integration of the accelerometers; AB, AAXy, AAZg, A8y, Ang are 


initial bias errors, Ep, is the noise component of AAh, and Adh, is a. | 
areas 


regard to the difference in airspeed obtained from pressure data and acceler- 


ometer integrations. Using regression analysis, Gerlach finds corrections to 
his data. The corrected a, 6, h, and V data are Then used in a System of — 
— equations a ee a | | a ae 


ee 


i 








Here P is the brake horsepower at a given manifold pressure and RPM, AP, Is 
the change in.total pressure at some point in the slipstream, 6, is the 
elevator deflection, and @, b, and-c are undetermined constants. This gives: 
_ a total of 19 constants to be determined from four equations. Gerlach ‘does cig. 
not provide sufficient detai! in the paper to identify the procedure by which 
Foon iracts these coefficient values but one could employ the least squares Yate 
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present report? The latter 
SO that one cannot use it to extract longitud 
Information as Gerlach does. On the other hand the 


angle of attack and Speed range rather than "smal |" 


filtering, and uses regression techniques for 1 


~, to improve interparameter data 


ao which the regression analysis is applied js al 


_ ¢onsequent reduction in mathematica] comp lexi + 
better job sorting out errors in the Flight da 
_ power and drag. ieee Se eee ae _ 


analysis procedure to determine lift and drag from pushover- 
_ data. He did not attempt to determine thrust at +he same ti 

an independent estimate of thrust is necessary", 

og SaSPodynamic:modei “= °s fay” a an NCEP SBEY 


Me” Oe Vand 4, a | - S161) 


_ The reader will recognize several of these constant+ coetficients as. 
h indicates further That by correcting — 
the ‘data to steady flight conditions by means of the chosen aerodynamic model, 
can tind i ion of Speed, the elevator angle as | 
8 function of speed, and the drag polar. The details of the method are not 
Supplied in the paper or the subsequent reference, | eee 
| How does Gerlach's method compare with the method described in the | 
does not include the Pitching degree Of freedom. 
inal short period Stability — ae 
Flight maneuvers used in 
as to experience a large Part of the aircraft's 
Perturbations about an 
equilibrium state from which one would normally extract short Period infor- 
mation. Gertach follows the latter approach. Gerlach apparently chooses. 


integration of accelerations as his.method of data smoothing, rather than 

3 he removal of bias errors, 
ethod to remove bias errors, 
ly the only device Gerlach uses 


consistency. He seems to have settled on 4 
Single, relatively simple aerodynamic model. The form of the equations to 
i 3 on So quite different from that | 
ifferent Purpose. The identj- 
"Speed is not as evident jn i 
Finally, the Philosophy adopted 
here is that by limiting onets consideration t+ s 4% 


sone , Oo motions of the center of . 
gravity in the vertica} plane and thus to performance prob!ems alone, the 


y should permit one to doa _ 
@ and extracting thrust horse- 


the present work are chosen so 


A similar approach js Followed in The present m 
The application Of bias corrections js apparent 


LIIFf's Method 


Iliff (Ref. 12) employed a very interesting variant of his stability | 
pullup maneuver 
me because ",.. 


oe 2, ; ace i a,* | ON eo 
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-~C cosa-C_ sina | —— - (165) 
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and writes the six equations | 


he 5 oo . 9 oa aa rere: Mine | eAte A % ees 
ee M9 + Mya + M20 Ms Ss + Me2Fe * Mag 86 + iM 7 eee 


ee Tee ee ee ee Pe ee ree rr 
| ZN - Zia + 72% s ‘0 | 782 neo 705 9 * re q + y COS 8, | 7 8 sin Q. 


XV + Xa + X20 + “5° * 52°. the 7 g -g sin ® = g 8 cos a (168) 


giyh F240 + 220 * 25 %e + “52° e * a6 We + fo" 2 _ 169) 


ie hare, oe ge oO oe 
gO + Xa + Xyza" + Xp 85 + Xeode + X 


ee e Wee S 


ee. sae Gy Oy. 6: a, A_, aan A. are Aatieele as “measured functions of. ime and, 
he Se net. thrust, WS and @ “are taken as constants which are assumed known 
during a given maneuver. If one calls a¢, ade, and 6 separate variables — 7 
distinct from a and 6, “then by specifying 6, as a function of time, one has a 
system. of Six equations with constant coefficients unin can be Seca for. 
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provided values of the constant eauftlcients are supplied. eae the equations 
are linear, the general form of the solution may be written down immediately | 
and the partial derivatives for the -Newton-Raphson equations evaluated by sub- 
- stitution of these soiutions in the analytical expressions or evaluated numer- 
feally by finite differences, The cost function to be minimized is Sonate 
of al squared between the measured and computed values of q, a, V, 9, 
| aA » and Aye The minimization is achieved when the constant coefficients, 
May» A, My > etc., assume those values which produce solutions to the system of 
SIX “equations most - nearly ese tan the measured data ina least Sauer: sense. 


In the form presented in the paper, ite edi ves for the. values of 22 
constants and 7 said ea biases. These include the 12 constants necee=er), 


to evaluate C = x/ (pSV ) and Cc, = Z/(psv*). Note. that the +hrust must be 


x 
i in Seder to separate XS a the éonstent LX. + To), Xo? of 


course, is the major. contributor To es | litt also assumes ” inet the thrust 


= “ 
axis Is cofncident with “the x-body axis and his formulation is in terms of a. 
_ body axis system rather then. a wind axis system as used here. 


known a prior 


; The acceleration equations as written are for true accelerations; hence, — 
the Gear erica contributions to the usual instrument indications must first 
be removed. before they are used in the minimization. S 


| ‘LITERS mode includes three non=|inear terms which he is able to accom= 
modate by writing three additional equations and calling these non-linear terms 
additional linear variables. Obviously, this process cannot be continued to. 


a significant degree so that he must content himself with fairly simple lift 


and drag models if he is to avoid the non-linear solution techniques fol lowed 
in the present work. This means that he must limit himself to maneuvers 
sufficiently restricted that the changes in all the variables are linear. 


He cannot evaluate the entire lift and drag curves in a single maneuver if. the 7 


non-linearities of the complete curves extend beyond the form chosen. In the — 

. present work somewhat more comp | ex models are investigated. In Iliff's for- 
mulation only smal! excusions in pitch angle about the initial value are sis 
permitted. That restriction does not .exist in the present formulation. yiiet Ss 


as well as the present models do not include rate terms. One final difference 


ns: the Hens TON OF CT » CY 5 and C terms in the drag ss cen those 


Xs a8 Xg¢ 
e ; 2 2 eS 


terms are eae included explicitly in the SHesee formulation. it was pointed 
Gut earlier, however, that for a given weight and c.g. location these effects 
would be included implicitly by the nature of the extraction. process in the 
coefficients of the drag expression. The values of these coefficients in the 
present formulation would; pee eee be wexpgciee to change whe changes . in 
C. g location or weight. ae | ee , | 
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The Iliff paper ‘illustrates very clearly the trade offs involved in 
activities of this type. If one is content with restricted aerodynamic.models, 


evaluation over a limited speed range, and no thrust determination, then the © 


trajectory computation is very much simpler. Since trajectory evaluation 


consumes at least 75% of the computational time and is responsiole for much 
of the error in the present procedure, the time and accuracy advantage of the 


SUR er procedure cannot be dismissed slat 


| Some Of © if f's more recent studies in SApaHeter estimation sited to 


| stability and control problems are reported in references 15, 4, at 1D. 


Ones nD Ozer lon algorithms are described in reference 16. 
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DISCUSSION OF RESULTS _ 





Figure 44 presents the two data sets from which the lift, drag, and power 


data shown in figures 45, 46, and 47 were obtained. The drift value shown Tor 
The pullup-pushover maneuver was chosen after several trials ‘to produce a good 


match between the measured velocity and the computed value. The again and 


- a=bias values used are those found by the flight calibration of the.a-vane for 


the position error. The rough a-curve’ is the measured a values as modified | 
by this. calibration. The smooth a-curve is the filtered a data modified by 


the compatibility improvement scheme. The moditication is responsible for the 


_ difference one sees between the peak measured values and the smooth values. | 
The smooth curve on the 6 plot.is that produced from the input data by the 
filtering procedure. The f curve, is obtained by differentiation of the ets 


- fourter series representations of h.- 


To obtain the velocity match shown for the level flight acceleration i+ 
Was necessary to employ a non-linear 6 drift, one for which almost all’ the 


effect occurs in the last half of the maneuver. Note also that this drift 


has the opposite sign from that required with the pullup-pushover, an Indication 


perhaps, of the random nature of the "drift", I+ would appear from the figure, 
however, that some further refinement of the non-linear drift function is 


necessary in order to achieve a really, acceptable match. 


Figure 46a shows the extracted drag coefficient values obtained with 
three different models for the pullup~pushover manuever. Only the steady 
State components are plotted to facilitate comparison with the results of. 

Holmes (Ref. 11) and the predictions. However, the complete drag coefficient 
expression obtained, including-the rate terms, is shown on the figure. The 
power expressions associated with each of the extracted drag results are shown 


in figure 47a. It will be observed that the mode| giving the lowest. fit error 


_ obviously is not an accurate representation of the aircraft's thrust horse- 


power, If one assumes that the drag found by Holmes is approximately correct, 
then it is seen that result (a) provides the best fit by best straddling the 


_ actual drag. The most reasonable Power expression, (c), lies below both the. 
expected power and the steady-state drag for al! values and hence has the | 


; largest fit error.. We may remark here that the fit error obtained by includ-. 7 


Ing the rate terms in the drag and power expressions is almost an order of 


magnitude smaller than the fit error for the same expressions without any of | 7 


the rate terms, 


A number of other power models, for example 
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- Where x has various values from 0.2 +o 0.6, were investigated with NO apparent | 
—. improvement in the results, - | os in ee 
~The estimated Power Shown in figure 47a for 256 fps would appear to be 

consistent with the drag coefficient neara = 0 Shown In figure 46a, because 
the extracted power and drag Values for'model (c) ~~ Which are related by an 
equation -- are both approximately The same as these values. At the low speed 
end of the data the estimated ener alittle Iouch pe drag value 
derived From Ref. 11 's a little high or both, A power value of 103,000 
ft~lbs/sec at 167 ft/sec iS consistent with a drag coefficient value of about 
0.98 at an a = 0.104, See ee we hag 2 “ a anes 
One explanation for the. .fatlure Of the extracted values to agree better 


with what are probably reasonable Power and-drag iS @ possible error in the 

a Position error calibration, The extraction process Is, of course, more 

sensitive tothe value of a than to the value of any other variable, AS an 

experiment an extraction was Performed on a data set with @ larger value of 

a gain song with @ negative bias value. The resulting ® values were -there- 

fore centered about those used for the: present+ extraction. Interestingly, | 
the extracted Power curve using model (c) had a considerably shal lower slope 


than the result shown in figure 474. Since the calculated flight velocity js 
not particularly Sensitive to the values Of a used in integrating the kinematic 
— €quation, it seems possible that an adjustment to o Sufficient TO bring the | 


_ €xtracted results into much better agreement with the "accepted" values can. 
be achieved While preserving the congruence between the calculated velocity 


We may note in Passing that the aircraft was flown In a rather "dirty" | 
condition. This fact iS no doubt Primarily responsible for the measured drag 
| being much greater (~ 25%) than +he Predicted Value. When the aircraft was 
— "Cleaned up" for the full-scale wing Tunnel tests The measured drag was found 
: te be about 15% less* than the Predicted value, ee | a 


| __Figure 46b shows the extracted crag coefficients obtained from the level | 
flight acceleration a+ 4000! depicted in figure 44. To obtain this result it. 


Was necessary to omit the rate terms from the drag model but retain them for — 


the power expression. Note that the Speed range and angle of attack range -. 
- “covered by the two data sets are approximately The s me. The rates at which 


me variables change, Of course, are much lower in the level flight acceler~ 
orrels |? would appear that the (rates are below whatever threshele value is 
needed ‘to inber of dees Ho eteet TONS. Also the fit error nena le value is. 
GEE sete ct dete, polivts iss 15: obout thee ti as large for the level} 
TL tgne elven tion as for the pul tup~pushover, This would seem to indicate 
a 25 make possible nope aR id parameter changes oc lense tog dis | 
‘Ghanges make possible more accuraté ‘coefficient extractions. They also aid 
er, should not ue Ng and acauisition defects, tae eas, (eY also ald 
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The value of C. sand trom the. payer flight acceleration is 7. 54 lower | 


than that SORES Os om the pul tup= pushover. Considering the fact that fit 
errors for’both data sets are still excessive, this agreement is-quite good. 
This value (0.0468) is about 13% below that given by Holmes. The uncharac- — 
teristic variation in the drag coefficient with angle of | attack is indicative 
of a problem in the data submitted to the extraction routine. Note that in 
; figure 44 the match between the measured and computed values of velocity is. 
much poorer than. for the pul lup-pushover. In addition a much more unusual 
"drift" correction to @ was required to achieve even this bevel of congruence. 


One might suggest. that perhaps a relatively low. frequency gust to which the “in 


@ vane responded more completely than did the aircraft (tence 6 and 6) as a 
whole. was responsible for spurious contributions to the computed aircraft 
velocity. Analysis of several more maneuvers would be required to determine 
the validity of this contention. In any event, the extracted. variation a a 
. with a for the level flight acceleration must, for the present, be: regarded 
as having the correct order « of magn tude and little more. } 


The fal lure of the ecaaeled: power values showh In figure: AT to agree 


| more closely with those extrapolated from sea level full scale wind tunnel 
results is another indication of the higher level of error present in the 


go reenamert ae 


3 : ; 
herpes te Saree 7° 


level flight acceleration data set. Qualitatively, however, the power results ean 


are similar to those for the pullup-pushover, a favorable indication. There _ 
fs some evidence also that the estimated power value for 4000' is perhaps just | 


a tittle larger than is actually the case. Note the relatively good agreement © 
obtained for a + 0 during the pul |up-pushover. if the power and drag are in. 
approximate equilibrium at a = 0.01 and if the Cp, value here is about 0.053, 
_ then one would expect a power into the airstream Of about 149, 000 Wielpa/ane | 
while the extimated value is about 153,000 ft-Ibs/sec. oe ae Ps 


7 The differences: between the extracted values and those determi nea: from 

- speed power measurements are about what one would expect, given. the magnitude 
of the fit error. It was noted during the discussion of the computed theo- — 
retical case that a fit. error of about 4 x 107? for 300 points (30 seconds a 


_ data) would be e ui valent to an error of about 5% in drag or power. The fits 
error of 4x i 0 as “for 300 points in the pullup- pushover indicates a power or. 
drag error of about 15%, which ts about that found. A fit error of 2 x 1079 


for 450 points in the level flight acceleration indicates an error of about. 


30%. The extracted power values appear to differ by about 20% from the | 


- extimated values while the drag coefficient values are on the Never ede about 
aed below the values of Ref. A. | ate 


| ’ Some 30. different caruenls model's were investigated in an effort fo a 
Se See the fit error. None showed 2 significantly lower error while also ne Te 


—-ytelding a reasonable p. value. On the basis of these results one. must con-— 


-)ehude that the reason for the high fit error Is more likely. +O be found Tris: the. 


tack of Internal consistency in the data for. this. particular maneuver than it 


eget in the failure to uuu & an Lees oe mode |. 


poe REARS yas, ce Mem. din Cees | ES ae Nace cesae whee 


re with the predicted values and the results of Holmes (Ref. 11). _ The - 
extraction models used did not Genes rate terms. — The values of C a 


| extracted from the ane pushover is. abet 4 higher. than Holmes! result 
white that obtained from the level flight acceleration is about 10% high. 
Except for the upward curvature in the result extracted from the level flight | 
acceleration the two maneuvers gave essential ly the same lift result. 7 
The curvature in the level flight result is thought to be due to the failure. 
of the "drift model used to. produce a better match between. the measured and 
ts the computed flight. velocities. (See. figure. 44). . 


ees a factor which should be checked closely when developing predictions. 
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- The importance of choosing a satistactory model is iflustrated by the - 


results of an experiment using theoretical trajectory data. (Figure 22). The -= 
‘last term in the 5 term drag model was changed from a° to a4. This single | 

change caused the fit error to increase fifteen orders of magnitude. The 

_ coefficients to the other terms in both the drag and power models also changed | 
significantly. Cp, fOr example, almost doubled. This extreme sensitivity 


to small changes in the model is a consequence of the Tt-condittoned panne 


Pere the "A" matrix In the least squares procedure. 


The extracted values of litt coefficient vs. a are oe ine eteure 45. 1 eee 8g Se) 


ba=0 


The agreement between the extracted Fesult and the ready state rosie 


of Holmes is good fora < 0.02 radians, the highest speeds of the data sets. 
-. Efsewhere, the present results exhibit a lower lift slope. The extracted 


value of a0 is even smailer than pica uGrens The reason for this is uncertain 


but several “sossibilities come to mind: (a). the litt model does not. account 


for the excess power available at the lower speeds in the form rate terms. 


- (b) the excess power available may reduce the span efficiency by moving the 
_ foad inboard. (cc). The down thrust due to offset of the thrust axis may be 
greater than thought. Which, if any, of these is correct can be determined 
only after further study. Both the pul lup- pushover maneuver and the steady 
_.. speed=power data of Ho Imes indicate that the lift curve is. essential ly linear 


fora < 0.1. This is fortunate since significant. reductions in the comp lexi ty 


a OF subSequent calculations can be obtained by nes 3 linear Liens curve ‘so 
“model « | : | | eo a ee 


obviously, the: prediction for Cee ea error. This. would seem to indicate 2 


i = 


oS that (a). the wing incidence angle “Ys different from. that ‘assumed In developing 
_ the prediction, (b) the airfoil trailing edge shape is different from nominal, 
(ec) the instrument reference line is different from that assumed to be the ee 
reference in developing the prediction, or (d) some combination of the above. 
_ Because, of the large. difference which manifested itself in this asa 


“The 13: sf Increase. Tn ce over - the. predicted value would appear to be we 


a a higher than. nominal ayaante pressures over those areas of the wing swept 

‘;-. by. the propeller slipstream, an effect not included in the prediction. aces as, 
st > area. affected and the. magnitude of the increase in dynamic pressure can probably. 
be determined adequately by propeller. moment um theory. ‘These effects: should 
popes DBS included” in future FORO NON Aino ° a ee | 
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PERFORMANCE EVALUATION 


It had been penne to use the lift, drag, and power data extracted from 


typical maneuvers such as pullup-pushovers to evatuate the aircraft perfor- 
_ Mance parameters. This procedure is analogous to that followed during pre- 
diction of the aircraft's performance except that one now substitutes the 
. extracted or measured values of the lift, drag, and power for the estimated 
values. If extractions are carried out for several altitudes, several power 
settings, and several configurations, a rather complete picture of the air- 


craft's performance potential can be developed. However, because of the 


- |imited accuracy obtained thus far for the lift, drag, and power in-flight as_ 
~~ well as the limited number of maneuvers analyzed, this plan was not pursued. 


{+ had also been planned to use the I}iff-Taylor program (Ref. 6) to 


extract stability derivative values from flight records. Some short stabilator, © 
-.. aftleron, and rudder pulse maneuvers suitable for this purpose were flown. 
lt was intended that at least the stabilator pulse records be processed through 
both FDR1 and FDR2 so as to make them as internally self-consistent as possible. 
FDR2 is, in fact, provided with a means of arranging the final version of ane 7 


data in a form suitable for additional processing (punched cards or tape). 


- Because of difficulties in defining adequate fift, oe and power model's aad. 
dn lowering the fit a ner this plan was also ohne | oa 


: The reader interested in comparing the prediéted with the measured per- 
formance and stability should be aware that full scale wind tunnel tests of 


the. aircraft have been run at the Langley Research Center. Publication of 


the test. results is expected in the near future. Researchers at the Langley 
Research Center have also been attempting to extract stability derivative 


values from-the flight data by several techniques. It is understood they have 2 


also been stymied thus far by the problem of internal ly inconsistent data. 
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CONCLUSIONS 


1. ~ Peendaae: has been developed which ‘has demonstrated the ability. to 

| eetreet complete lift, drag, and thrust horsepower curves simultaneously from 
simulated time histories. ofa single aircraft maneuver covering the aniline oe 
Speed wreniae oe ~~ 


| 2... The eeehntaue presently dees not roe rate terms in the mode! of 2 ast 7 
the a1 erery and these MAY, be necessary in real world situations. | _ : 


ane a The technique requires rather accurate ee data in orden to yield, hal oe i 
_ acceptable results. ~~. | | | Se, 


ce 4. Some success has: been achieved | in | developing an. gue date sie ~, Pi 
. compatibility improvement routine. , 7 | wos 


oe The extraction eoehniaue. is apparently: Silte ‘sensitive. to ‘smal 
computational errors and should therefore be run with The max imum aa lle 
| avai lable. 7 


or ere iniiary: pedi ‘Indicate seasbaable Gercenaer with ottier flight 
test techniques and extrapolations of full scale wind tunnel tests even. 
though the trajectory matching features of the technique could not be used 
because these do not pe ee rate terms: In: The model oF the aircraft ot the 
peso ames a 
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SUGGESTIONS FOR FUTURE WORK 


It will be apparent to the careful reader that a proper understanding of 
the correct or best power model for this airplane has not yet been achieved. 
Until it is, FDR2 cannot hope to yield results with low fit errors. In this 


connection it would be desirable to employ a non-linear least squares technique — 
_*- one which calculates its Own exponent values for at least the velocity 


dependence of the thrust horsepower -- to determine how the data can be fit 


| more effectively. Note that an initial fit error about 10 times lower than 


that currently obtained wit be necessary before FDR2. can proceed satisfac- 


tory. ce 


1f, as now seems likely, the rate terms are sufficiently important as to 


require inclusion in the aircraft model, FDR2 will require substantial revision 
_. to provide for these terms in the various routines. Because of the complexity — 
they will introduce in HPATH if included as variables it may be desirable to © 
-. assume that the coefficients for the rate terms are "frozen" so: far as HPATH 

- (see Appendix C) is concerned. ak 


Ao Much of the difficulty encountered in obtaining convergence of the tra- 
.. Jectory match procedure is thought to be related to the precision with which 
(a) the equations of motion can be integrated and (b) the "A" matrix in The .--. 2 | 
_ Newton-Raphson coefficient modification equations can be Inverted. It is. | 


highly desirable that the efficacy of doubling the number of decimal. digits 


-- emptoyed in-these calculations be investigated. Currently 16 decimal digits 
are the maximum which can be used at the local computing facility. 


Despite the fact that some success was achieved in: improving the self- 


_ sompatibi lity of the flight data this is really no substitute for flight data 
_ which is inherently more sel f-consistent.. Accordingly, it would be desirable 
to try the entire procedure with data whose internal consistency is known to | 
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User Instructions — FDRI 


The program is written in FORTRAN tV and is iectense to execute in 


— double precision on an |BM 370/165 computer with an average execution time 
of 8 minutes 12 seconds for each maneuver data set. Execution requires 
approximately 724,000 bytes of core storage. The program is intended to 


handle data from only one flight during a given run. ite sES a eee into 


(a). 
(b) 


ey 
ENG) 


(e) 


“ay 
(g) 
CA) 


ee Spas, and gots 


is 


(bd 


Ce) 


_ two sections. | The first section 


adjusts the input data, | if desired, eee an, assuned phase shift, 
converts time, weight, pitch angle, pitch rate, airspeed, static 


pressure, angle of attack, total. temperature, longitudinal 
acceleration, vertical acceleration, and elevator or Sleeve 
deflection to compatible computational units, 


calculates the lag corrections to the static and dynamic pressures, 
applies the position-error correction ratio Ap/q.” , 


applies the acceleration-dependent corrections +o the static. 


pressure, © 


‘converts total temperature to static temperature, static pressure 
To density, BOns1 ty to altitude, and Melee res airspeed to true 


airspeed, | 
corrects the pitch angle indication: ae a known initial pines 
corrects the angle-of~ “attack Indicarion for the Jo Prumany 


— focation, and - 


calibrates the angle-of- ~attack indication for. a known or assumed 


The second section 


sectors aur iereeeeres: saalvete end eh eeiias on he: weight, 
pitch angle, pitch rate, airspeed, density, angle of attack, 
_ static temperature, longitudinal acceleration, altitude, vertical 


acceleration, and elevator or stabi lator time histories, 


Integrates the pitch rate Indication to obtain The pier angle 
indication, og 
calculates C1). the acesigea ton from the a enceae 


(2) the angle-of- ~attack rate-of-change from the Fourier- 
-- sertes-and-filter modification of the angle of. 
attack or from the differentiation of a cubiicm— 
Se 2) apne. Tiare of the input angles of attack, 
3): the density from altitude, > ; 
(4) the altitude's rate of change and sSeeiee on 


from the Fourier-series- -and- filter: modification. ot a a 


the altitude or from the differentiations of a» 
: _ cubic-spline- Aa of the "Input altitude time - 
ce oe NL STOrY > 7 
(5) the compat ible angle-of- attack values from other” 
7 Ue historfes, = oo Coe oes watt 


“baucubind BaGe tian Nor mimen 20 


cal 2g LI MOR < ROMER SUB ETI Eo 
are . ; . ' 


(dd) 


(e) 
CF) 
Cg) 


(6) the compatible altitude and its rate-of-change 
values from the integration of the flight-path 
rate of change, and © 

(7) the inertial-compatible airspeed, 

performs a minimization technique with or without a poor values 
to make the data more consistent, a 


plots the time histories, 


writes the results in English or SI units, and 


prosiees punched output for the FLIGHT DATA REDUCTION 42 | program. 


The program RSA nNECs the specification of the. Farag: input: 


_CARD Tes 


(a - 


(b) 


CARD 25 


FOR1 Section 1 _ 


Bit number. of maneuvers NSETS in a “fagie flight to be ‘anaivzede 


 NSETS is a right- adjusted integer number less than or equal to — 


10 and occupying columns i-5. If NSETS is not an integer number 
~ between 0 and 10, the program will terminate permaturely. 

The desired type of output units METRIC for all data ole 
maneuver =): 


tf METRIC = 0, the output will be in Engl 1sh units. gets 
METRIC = 1, the output will be in SI! units. METRIC IS a. 
right-adjusted integer number occupying columns 6-10. The 
— specification of METRIC only affects the output eng 
ae The pane es output fs in pons units. 


The. Weight-time-history code ICODE for Son Of the NSETS maneuvers: 


{f# [CODE = 0, a continuous weight time history is produced from 
the first or preceding weight time history, assuming no elapsed™ 


time between the maneuvers. If ICODE = 1, a continuous weight | 


time history is produced from the first or preceding weight +1me. 


history with elapsed time considered between the maneuvers. The 


 -weight-time-history codes for the NSETS. UM tll are. right 


fen 


adjusted. integer numbers with each maneuver's ICODE occupying 5 
columns. (The {CODE. papiyiical is fais in nee with the 
—ELAP parameter below. 4 3 " 


‘The maximum number of ninimizetion-improvenent iterations NUMBER 


| a gt be used for the maneuver: 


_ NUMBER is @ right-adjusted integer number less than or. equal _ Hee aad 


to. 10 and occupying columns 1-5. | NUMBER is less than 


zero, NUMBER will be set to zero. !# NUMBER is greater than 


te AJogte. errors” wilT. result beyond | 10 iterations. 


ee 


E seme aaa ; 


(b) The elapsed time ELA 


| (c) The d 


(d) The variable locati 


-El€vator (Stabi lator) deflection 


7 For example: [# the Time history: vy 
—- "+imel, , "lon 
"Ditch rate! 

acceleration", 7 slevi de | ae 
ibs cy tion", the IVL's would eco ue a ye VEC SR. Woven oo see 
a IVES) =4, VL (4)=3, 1VL(5)=5, IVL(6)=6, IVL(7)=10, IVL(B)=7, Me ae 
a ONG VL(Syat i ce ee re ee e* ae’ a oe Ore ae 
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P to the maneuver in seconds: | _. 

For the first maneuver, ELAP should be the elapsed time from 
takeoff or engine-start +o the beginning of the first maney- — 
ver. For the Successive maneuvers, ELAP 5 
time from the end Of the previous maneuver to the ) 

of the next maneuver. ELAP may be set equal to zero for any — 

of the successive maneuvers, ELAP {js a floating-point number» 
occupying columns 6-15. (The ELAP paramete iS used in con- 

Junction with the ICODE parameter above.) _ 

ata set file number JFILE: = |. | 

JFILE is a right-adjusted integer 

_ 16=20 and specifying that the data 

magnetic Tape, disk, etc. must supply the suitable 
job contro! cards for the tape and/or disk reads. The JFILE | 
| parameter controls Only the reading of CARDS (12 + MPTS + 1), 
tees (12 + MPTS + 2K). Alt other data js expected to be in | 
card form. . ws: . 4s ; : _— _ = 


number occupying columns — 
is to be read from cards, 


on numbers IVL(1), | = Jao. 7 
The variable location-number "names" the variable Occupying 
@ particular data field on The records containing the time 
histories. IVL(1) are right-adjusted integer numbers each 
occupying 5 columns beginning at column 21. The Program 
assumes that for each recorded time point there are 10 vari- 
ables: time, pitch angle, pitch rate, airspeed, static 
Pressure, angle of attack, stagnation Temperature, longi- 
Tudinal acceleration, vertical acceleration, and elevator or. 
Stabilator deflection. The program also assumes that "timet 
wil! always occupy the first data field. ‘For the variables» 
in the second through the tenth data fields, the Following — 
IVL's must correspond to the variable name: | . 


am 


Variable Name | 


= 


_ Pitch angle 
Pitch rate 
Airspeed 
Static. pressure 
Angle of attack ae 
: Stagnation temperature 
Longitudinal acceleration 
Vertical acceleration 


acer yt De NAF | 
(FOONAU AWK 


ariables were ordered as _ 
gitudinal sce eration”, "pitch. angle", "airspeed". _ 
» "static pressure", "angle of attack", "Vertical — 4 


"stagnation Temperature", and "elevator deflec- 


CARD 4: 


The 80 eharacters: of the-array TITLE which are used as a header for 
identifying the output: 


CARD 5: 
(a) 


(db) 


~. ¢e) 


jay 


(e) 
(Ff) 
(g) 
(h) 
7 (i) 


eee 


CARD 6: 


(a) 


Since the program allows more than one flight maneuver to be 
analyzed in a given run, TITLE is used as a contro! variable to 
end execution. TORm net On of execution Is achieved by following 


the last maneuver's data set to be analyzed by a title card having 


only the word END in the first three Sou 


‘The Fourier-series filter-cutoff harmonic NCH(1) for the lag 


corrections in the airspeed's static pressure system, 
The Fourler-series filter-cutoff harmonic NCH(2) for the lag 
corrections in the altitude's static pressure system, 
The Fourier-series filter-cutoff harmonic NCH(3) for the lag 


corrections in the altitude's and airspeed's stagnation pressure fe" 


The Fourler-series fiiter-cutoff harmonic NCH(4) for the lag 
corrections in the. stagnation temperature system: 

NCH(1), NCH(2), NCH(3), and NCH(4) must be right-adjusted 

integer numbers greater than 0 but fess than 66. Each 

NCH(}) occupies 5 columns with NCH(1) beginning at column 1. 
The lag time interval XLM(1)* in seconds for the euegnelon 
pressure system, | | 
The lag time interval KLM(2)* 
pressure system, © i 7 
The |ag time interval XLM(3)* 
pressure system, | | er ae 
The lag time constant TAUCL) in seconds for the stagnation 
pressure system, | : = 


in seconds for the altitude's static 


The lag time constant TAU(2)* in seconds for the altitude's static 
pressure system, | ng te 7 re 
The lag time constant TAU(3)# in seconds ae hear 
_ pressure system, | 


-XLM(1), XLM(2), XLM(3) , TAU(1), TAU(2), and TAU3) ar 
“#loating- point. numbers each ewe 10 columns Pedi mng 
ae Sar column 21. | | , | : 


The assumed number of data points NSPTS to. be indicative of a 
| required phase shift: Le ees 
~. LF NSPTS Ts. less than zero, NSPTS with be set ree its peels. —_ 

value. NS value of (NSPTS x eae rate) should not exceed 





— Se Oe ey, Ge Fo ee ee ee ee 
These parameters are defined in The discussion accompanying equations. — 


n seconds for the airspeed's static _ 


pPrhegaieas cae” 
al 
dame tt Ae 


ind 


4 


che tO RS FF IS ony wi mimi a 


Poo. GARD Te 


CARD 8: *- 


wt ene mt thecal HP NE ELE SE NITE TOILE Nhe E-alert  y. - ae Sedlia teenth tear ane S awl te eee eae ah vietum ~ A Re oe Siae 3g 


unity; however, this suggestion is not mandatory. NSPTS is | 
a right-adjusted integer number less than the total number 
of data points occupying columns 1-5. | 
(b) The pitch angle linear drift DRIFT: © 
 ORIFT is used by the equation: 


= anne onan ORME 


(pitch angle) old 


ee 
x - (point number/total number of points) 
if ORIFT = 0.0, the application is bypassed, DRIFT is a 


Ff loating- point number in basins (second occupying 15 columns 
Beginning at column 6. | 


(a) The phase shift parameter LSP(1) for pitch angle, 

(b) the phase shift parameter LSP(2) for pitch rate, — 

(c) the phase shift parameter LSP(3) for airspeed, 

(d) the phase shift parameter LSP(4) for static pressure, | 
(e) the phase shift parameter LSP(5) for angle of attack, | 


(f) the phase shift parameter LSP(6) for stagnation temperature, | 


(g) the phase shift parameter LSP(7) for longitudina! acceleration, — 


(nh) the phase shift parameter LSP(8) for vertical acceleration, and. 
(i) the phase shift parameter LSP(9) for the elevator or stabi lator 
a Selectors 
| Tf LSPC!) = 0, no phase shift is desired on variable "1" 
(or vartable "I" was recorded by commutaticn). If LSP(1) = Py 
a phase shift is desired on variable "I" (or variable mM 
was recorded by frequency modulation). LSP(!) are right- 
adjusted Heese numbers each OceHeyEne 5 columns aeons sag 
at coum a ate | 


(a) ‘The ai ecrareis: wing area 3 in square feet, a ee 
- (b) the aircraft's gross takeoff. weight GWT in pounds. force, 
(c) the fuel consumption rate FCR1 in pounds force per second from 


takeoff or engine-start to the first maneuver, | 


“ay the fuel consumption. rate FOR2 in pounds force. per second during 


-. The maneuvers, 


Ce) the angle-of- eayseecineeaumene location, XACG in. feet from the _ 


aircraft's center of gravity, 


cl EY the pitch- via pig woe lin | HM correction CCG. Tn ‘Fadlanis;- 
-. (g) the calibration factor CALP1 to the angle of attack, and | 
oe. the calibration term CALP2 in radians to the angle of attack: 


Smee ce should be noted that the program assumes FCR1 for the | 

” fuel! consumption rate between maneuvers where the. elapsed 
time ELAP is nonzero. XACG is a positive quantity if the a. 
instrument is ahead of the og and Bo nde UF i is behind. 


CARDS 


_(#) the conversion factor CF(6) of static pressure to pounds force ae nee 


(3) the conversion factor OF(7) of “angle of attack to radians, 


FE MS eect oe a ASAE Boe ee sal 


the cg. $, GWT, FoRI, rCR2, XACG, PCCG, CALP1, and CALP2 en a 


Fadmayt tay! 


are floating-point numbers each occupying 10 cotumns 
_ beginning at column 1, me a os 


(a) The conversion factor CF(1) of time to seconds, ? 

(b) the conversion. factor CF(2) of weight to pounds force, 

(c) the conversion factor CF(3) of pitch angle to radians, : 
(d) the conversion Tactor CF(4) ‘of pitch rate to radian Per second, 


(e) the conversion factor CF(5) of airspeed to feet per second, 


per square foot, 


(h) the conversion factor CF(8) of Stagnation temperature in Hie: ~ 225 a pp 


well) the rconve cic: term CF(9) of Stagnation temperature in the 
for cia the conversion factor CF(10) of longitudinal acceleration +o feet. 
 (k) the conversion factor CF(11) of vertical acceleration to feet per . 


we aD the conversion factor CF(12) of elevator or stabilator deflection =| 


CARD 


| | The number of points MPTS on the (rat io-of-the-pressure-di fference-to- a ee 
- the-dynamic-pressure versus the-indicated-airspeed) curve for the oe 3 
— position-error Pressure corrections: iat tate sey aa ee 


13,.55,02 4 MPTS); 


equation T(°R)=CF(8)xT(°xX)+CF(9) for degrees Rankine, "3 ey Se @ ae 


equation T(°R)=CF(8)xT (°x)4CF (9) for degrees Rankine, ~~ 7 oe | 


ahactn, 
3 
Pee eee te a, 


per squared second, 


_ Squared second, and 


phate Padtangin | | a. Ma. ahs Ss _ ea 
| “.4t CFB) = 0,0, CF(8). is set equal to. 1.0. CF(1) through — ‘Ge hee a 
 CFCI2) are double~precision tloating-point numbers occupying oes « 

_. 20 card-columns each. CF(1) Through CF(4) are contained on 

The ninth input-data card beginning with column 1, CF(5) a 
_ through CF(8) are contained on the tenth Input-data card, a 
and CF(9) through CF(12) are contained on the eleventh input- — 7 
| data card beginning with column Ie. 2 4, at ot? Bear fa". ee 


_ MPTS must be greater than zero and no larger than 20. MPTS is a 
Tight-adjusted integer number occupying columns 1-2, A ee 


large Suggested that the values of DPQCP and VE span sufficiently = 


fe 30,2910" to Include the input data's speed rence. DPQCP and 


Bin 
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[era a eee Se ee 2a eo ae 
rgsenerals, data, sets wil! consist-of more than 450 points. In order that 


< . Hme-history: data of -the present maneliver muss be ignored. The extra 


'000-count specitication "implies" that within 1000 data points beyond the = 


pidileng ete . - 
et ee Vent ttm be seeint : 


_ be encountered, — ae 


: ate = : * . f he : oe 
ie, ; . : & 
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CARDS (12 + MPTS #1), 0.0, (12 4 MPTS + 2K); 


‘The time histories of time TIME(K), pitch angle D(K,IVL=2), pitch rate 
O(K,IVL=3), airspeed D(K,IVL=4), static Pressure D(K, IVL=5), angle of 
attack D(K,IVL=6), stagnation temperature D(K, IVL=7), longitudinal 
acceleration D(K,1VL=8), vertical acceleration D(K, IVL=10), land elevator 
or stabilator deflection D(K,IVL=11) for K=1. through K=450 (maximum). 
: It should be noted that+ IVL parameters in D(K,1VL) correspond to 
the variable location numbers IVL(1) described on page 211. The. 
_ duration of a maneuver js determined either by @ maximum count of. 
450 data points andthe perception. of two(2) user=supplied blank 
Or zero cards within the next 1000 counts or by the perception of 
Two(2) user=supplied blank or zero cards.* TIME(K) and the 
UtK, IVL)!s are double-precision floating-point numbers. Two(2) 
- cards describe a Single data point with TIME(K) always occupying 
columns 1-15 on the first card. Each card contains five variables _ 
each occupying 15 columns beginning at column 1~ win, | a, ee 


FOR! Section 2 


CARD (12 + MPTS + 2k + 1): 


| ee : | oe | 
' (a) ~The Fourter-series analysis code IFS(1) for weight, 
— (b) the Fourfer~serijes analysis code 1FS(2) for pitch angle, Be + Sie? a ORY 
_ (c) the’ Fourier-series analysis code |FS(3) for pitch rate, © Sry. . babes 
Ad): the Fourier-series analysis code 1FS(4) for airspeed, er rer 
(ee) the Fourler-sertes analysis code [eoC5) for density, =: a ee an See 
CF). the. Fourfer-series analysis code 1FS(6) for angle of attack, =: - ee 
g)- the Fourier-series analysis code |FS(7) for static temperature, 
¢h) the Fourier-series analysis code [FS(8) for acceleration, an. 
| _ (i) the Fourier-series analysis code TFS (9) for altitude, | a eS 
(J) the Fourier-series analysis code IFS(10) for vertical acceleration, 
(kK) the Fourier-series analysis code 1FS(11) for elevator or stabilator — 
Agee et eS deflection: . . . : i | i nd 
eee OE SPSL: 
tye! oe UR LES CL 
las or «history. ° bike ete ue ee eds ie ate 
BR oe TEAL ore Cight-adjusted integer numbers each occupying 1 
_ column beginning at column 1, ep ao Agee ts eM 


0, analysis is performed on the "| "+h time history. 


qT, no analysis is performed on the "I"+h +ime. 


ew 





Heer e rameters. of successive data sets are properly ontered ai Nextram 


ee ae eee 
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CARD (12 + MPTS + 2K a ee 


: » es) ‘The acce|leration- edersenina ioe code IPRC(1): 





If IPRC(1) = 0, the acceleration {s calculated pyrene 


differentiation of the airspeed time history. 


the longitudinal acceleration..is transformed Lato: the rate- 
_of-change of airspeed by the kinematic relationship between 
: <4 _ the aircraft's body axis and its flight path. ... 

_— (b) The degree of computation on the longitudinal ‘acceleration IPRC(2) : 
Pe. 0, the longitudinal acceleration is transformed 
into the rate-of-change of airspeed by the kinematic relation~ 
: ship between the aircraft's body axis and its flight path and 


TF IPRO(2) = 


1s smoothed by Fourier series and filtering. 


If IPRC(2) = 1, 


the longitudinal acceleration is. only transformed into the 
 rate-of=change of airspeed by the: kinematic relationship | 
— between The aircraft's body axis and its flight path. ff 


IPRC(2) = 


are. retained. 
specifying |IFS(4), 


oe peer desired results: | eo. ne 


2, the input values of longitudinal acceleration 7 
The following chart should be consulted in 
Hie and IPRC(2) so that the progran 





Tt IPROCHY. S00, 


7 gett oe toe 
EE che 


| _Faraneter Combinations: _.¢ Results "> | 
2 IFS(4)= 0, IPRC(1)= 0, 1PRC(2)= OX : Result a _ 
 LFS(4)=0 , IPRC(1)= Q: , IPRC(2)= 1g Result #1 ; 
1 FS(4)= 0, IPRO(1)= 0, IPRO(2)= 2 - Result #1 ; 
FS (4)=0, , IPRO(1)#1, IPRC(2)=0 Result #2 
 TFS(4)=0, IPRO(1)=1, IPRC(2)=1 ss Result #3 — | 
| “1FS(4)=0, IPRC(1)=1,. IPRC(2)=2 — Ittegat combination 
— 1FS(4)=1, 1PRC(1)=0, IPRC(2)=0 Result #4 _ | 
TFS(4)=1, IPRC(1)=0, 1PRC(2)=1 = Result #4 
; IFS(4)=1, IPRC(1)=0, IPRO(2)=2. = ss I L legal combination 
 TES(4)=1, IPROCTI=1, IPRC(2)=0. ~~ Result #4 
TFS(4)=1, IPRO(1)=1, IPRC(2)=1. ss Result #4. | 
TPFS(4)= Tt, IPROCT)= 1, TPRO(2)= ag Tegal comb ination | 
i | Result Pie Wiesbeed: wil be: the ‘smoothed input airspeed. -_ id 
> de Acceleration wil]. ae the differentiation of the ee : 
Z, atte dl eRe 2g smoothed airspeed. Sok ee coe oa ae : 
Result #2: ‘Airspeed will be the gnee tied: inaere airspeed. 
Acceleration will be the Fourier-series- ~smoothed | % 
- rate-of-change of alrspeed. transformation of the oe 
“ * eats, 22, fOngl tudinal acceleration. | | - 
— Result #3: Airspeed will be the enostnea pone ai eeneed 
— . . Aeceleration will be the unsmoothed rate-of- g 
change of airspeed transformation of the 
beh 3 7 oe He. TOI tudinal acceleration, : - Bae ee3 ie 
- Result #4: Alrspeed wilt be. the. aes Sie Speed ts 


ation will be the Fourier-series- smoothed — 
rate-of-change of Je transformation of 
longitudinal acceleration. | oe ae ee 
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Ch) 


‘The ‘method ae | pale errr rate computation: 1PRO(3): 


{f IPRC(3) = 0, the angle-of-attack rate will be eaictlated: 
by the differentiation. of the angle-of-attack's Fourier 
geries. If IPRC(3) = 1, the angle-of- -attack rate will be 
the differentiation of a cubic-spline fit of the angle of 
attack. It should be noted that if (FS(6) = 1 and IPRC(3) = 
0, the program will set IPRC(3) = 1. IPRC(3) is a -right- 
- adjusted WOneges number occupy Ing 8 column oes at 


oe oS COd unin oe 
The overall- Fourier-series analysis eed IPRC(4) : | 
«LF IPROC4) = 0, Fourier-series analysis will be performed on 
- the time histories whose IFS(1) are zero. if IPRC(4) = 1, 
no Fourier-series analysis will be performed even if. 


FSC) = 0.. The speci fication of IPRC(4) = 1 provides a 


a means to analyze “raw data. |PRC(4) is a right-adjusted © 


Integer number occupying one column beginning: at column. 4. 
The overall plotting code IPRO(5): | : 
If |PRO(5) = 0, plots are requested. if: |PRC(5)_ = ip no. 
plots are requested. [PROCS). 15:0 right-adjusted ‘integer 
_ number occupying one column. beginning at coftumn an 


| i punch code IPRC(6): 


|¢ IPRC(6) = 0, punched ae is requested. ee TPRC(6) = ae 


mo punched output is requested. IPRC(6) is a rightwadjusted 


integer number occupying one column beginning at column 6. 
The pitch-angle determination code IPRC(7): , 
| If |PRC(7) = 0, the pitch-angle time history will be The 
"modi fied" input pitch-angle time history. If IPRC(7) = 1, 
the pitch-angle time history will be the integrated pitch- 
rate time history. IPRC(7) is a right-adjusted integer 
number occupying one column beginning | at column: ts = 


- The compatibility check IPRC(8): 


—|f IPRC(8) =.0, the compatibility eneck is D wdanecetny ee 


—{PRC(8) = i an angle-of-attack time history will be computed 


+o be compatible with other time. histories. — (f {PRC(8) = 2, 


an altitude time history wil! be computed to be pnéumatical ly ; ait 


compatible with other time | histories. —|+# should be noted. 


that the compatible altitude time history wit! exist only on- 


the altitude-time-history plot whereas the compatible angle= 


—of-attack time. PSCOnY, will replace the existing sla ae 
attack time history. Generally, |PRC(8) should be zero. 
i PPROGS): 4S a right-adjusted integer: number pet: one ae 
. cofumn beginning at column 8. 
The. calculation coe OT the inertial=conpatibie altitude and 
airspeed IPRC(9): a : 

« 1E-1TPROC9) = i; “the calculation of the. Inertialocompat ble ; 
altitude and airspeed will be bypassed. If. JPRC(9) = | 

_ the inertial- -compatible altitude and airspeed will ie 


computed. (If only the inertial-compatible airspeed | is. 


= desired, see the discussion of FAC1 and FAC2 below.) 


Sa. 
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The aretanes. XAX in feet of the longi tudinal acceleroneter from 
The aireraft's cq: : 
 XAX Ts a nasi tive quantity if the secaiersneter is ahead. of 
the cg and a negative quantity if the accelerometer is | 
behind the cg. Parameter XAX is a double- ~precision floating- 
7 point number occupying 15 columns beginning at column 11. 
(kK) The fraction of the pneumatic-compatible altitude FAC! and the 
| fraction of the Inertial-compatible: altitude FAC2: 
The sum of FAC! and FAC2 should be equal to 1.0; that is, 
-FACL +. FAC2 = 1.0. If only the inertial=compatib |< al rspeed - 
is desired, the user must specify IPRC(9) = 1, FAC1 = 1.0, 
24 and FACZ = 0.0. Parameters FAC! and FAC2 are double-precision a 
- floating- point numbers each eseupy tng es columns peg nie 
Pe cat at column 26. © 
(1) The data sampling rate DSPS per: second: | : eo 
Parameter DSPS is a. doub\e-precision floating: povan number 
ae | CECUPy Eng” 9 columns ee at eo ann 36. hy 52 
CARD a2 - MPTS a 2K ae 5): = 
ta) The ip ibt code IPO) for weight, 
—  (b) the plot code [P(2) for pitch angle, 
(ce) the plot code IP(3) for pitch rate, 
. (d) the plot code IP(4) for airspeed, 
—(e) the plot code IP(5) for density, 
CF) the plot code IP(6) for angle of attack, 
- (g) the plot code IP(7) for static temperature, 
Ch) the plot code IP(8) for acceleration, OS ie 
i) the plot code IP(9) for angle-of- attack rate, 
jd) the plot code IP(10) for altitude, * 
Ck) the plot code IP(11) for altitude rate of change, 
Cl) the plot code IP(12) for altitude acceleration, © 
— (m) the plot code IP(13) for vertical. acceleration, and 2 
: Pye merplee ede EC 14) for. the- elevator or stabilator. deflection. 
vo TE IP CASO, a plot is produced for the "Ith time history. 
LF: IPCI )=,. rio plot is produced for the "I"th time history. 
2 APC) are right-adjusted integer numbers each ee. one. 
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the filter cutoff harmonic NC(10) for vertical, and 

the filter cutoff harmonic NOCT) for the elevator or stabilator 

deflection. 
Al! NCCI) are right-adjusted integer numbers each occupying 
5 columns pegenning: at cotumn. i. It is mandatory that 
oO. © NCCI) < 66. | | 


Se MPTS nae 2K + D)y wees (12 - + MPTS a 2k + 10): 


| 
The a priori value AP(1) in fey per eseondt squared and its : 
weight W(1) for the first linear acceleration dependency, 3 4 ! 

j 


the. a priori value AP(2) in feet per second squared. and its 


weight W(2) for the second linear acceleration dependency, 
the a priori value AP(3) in feet per second squared: and its 
weight W(3) for the third linear acceleration dependency, 3 
the a priori value AP(4) in radians and its ioe WC4) ie x 
the pitch angle bias, | | 


the a priori value AOS) and its wetey W(5) for the phase | 


- Shift, and >. | 
the a priori value AP(6) in radians and its weight W(6). for 
/. the flight-path-angle bias: 


APC!) and W(I) are doubliesepeetsten tloating- sciat numbers 

each occupying 20 columns beginning at column 1. Each of. 
the six(6) input cards contains the AP(1) and WO). that | 
correspond to the dependency or bias under considerations 


+ MPTS + 2K + mW, aes (12+ MPTS: + 2K eae 10 + NUMBERI/ (NUMBER-1) y; 


the code IR(2) for the calculation of the second, linear acceler= 


_ation dependency, 


the code IR(3) for the calculation of the third pinéar acceleration 
dependency, , me a” | | 
the code IR(4) for the calculation of the pitch- angle BGs. 


the code IR(5) for the calculation of the phase shift, and 
ane code IR(6) for the calculation of the flight-path-angle bias. 


ff ERC) = * 0, the Renee for the "I"th variable its 


- The code IRC) for the calculation of the first linear acceleration oe 
dependency, 


excluded. i f IRC) = 1, the calculation for the "I"th ‘arts 


. g@ble' is incfuded.: ao ealeulation of-at least one variable, 
he preferably Two, must be included. Failure to specify at. 
feast one variable will terminate the program. prematurely. 
_ Parameters IR(1) are right-adjusted integer. numbers. each — 
-occupying one column beginning at column 1.. It is necessary. 


s to provide erate ae pe cards s containing: 
ee me TROD, codes. | | 


For. a given. run eeeree, of one Or. ‘more date ce it meneuyare ys args 1 and 


2 need to 


be specified only once. Cards 3 through (12 + Wa ei 2K - + 10 + 


NUMBER! / (NUMBER-1) 1) need TO be. ‘Specified for eocl| maneuver. 
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Program Listing — | FORI - 


PBOGEAN: FLIGHT DATA RECUCTION ©4 (FDRT) £.0. SaRTAMA/ S.8. FOX OL 
2° naga mec atnete: | ie 

al 

OO OOECEOESESEESESHSOHCO OSES OESE VES AL 

* A ° aL 

* SATA BELUCTIOM SECTLOW HO. 1 © aL 

e e aL 
POSOSOSHSESHESCOHEHESHOEOEASOESHHEBE OE OOO aL 

SL 

aL 

aL 

GIVEN VALORES OF THE AISCRAFT CHARACTERISTICS AND THE AIRCRAPT'S aL 
PLIGAT TIME-NISTOREES OF PITCH AWGLE, PITCH RATE, ALASPEED, STATIC AL 
POZSSUME, AUGLE OF ATTACK, TOTAL TEMPERATUGE, LOMGITUDIWAL ACCEL- AL 
| BRATION, VERTICAL ACCELERATICM, AND ELEVATOH (On STAUILATOR) aL 
- BEBLECTION, THES SECTION PERPORAS THE FOLLOWING: aL 
as aL 
“4p ADJUSTS DATA, IF DCESESED, FOR &M ASSUMED PHASE SHIFT BL 
es AL 
- 2) CCuWZeTS Tlaz To SECONDS BL 
aL 

3) COMPUTES TOTAL AAWEUYER EXECUTION TIAnE aL 

a aL 
OM) COMPUTES AIRCRAFT'S SZIGUT TISE BISTORY en | 
a a ee ee RL. 
| 5S) CCMVESTS WEIGHT TO POBNDS FORCE ok 
: ok ? aL 
6) CCWVBRIS PITCH ANWGLE T0 gBa0Laus | oe 

e aL 

‘D} CCHVERTS PITCH GATE TO BADIANS PEW SECOND aL 

Bee poe BL 

Gp CCUVESTS AIASEEED TO FEET PER SECONL aL 
a as pen . ab 
$) CCRYERTS STATIC PRESSURE TO POUNDS PORCE PER SQUARE FOOT... AL. 

i . aL 
00) CCEVEETS ANGLE OF ATTACK TO BADIANS AL 
n pies BL 
«Wp CCRVEDTS ICTAL TESSPERATURE TO DEGREES RAUKINE aL 
bs eS : : aL 
V2) CCMVEATS LONGITUDIWAL ACCELERATION TO FEET PER “AL 

' SECOND SCOAHEDL aL 

boyd : | | AL 
93) CCHUVESTS VEGTICAL ACCELERATION TO FEET PER SECOND SQUARED aL 
aL 

$8) CCBUVEATS ELEVATOR (ON STAGBILATOR) DEPLECTICN TO @ADIANS SL 
FB 

15) CALCULATES LAG CORRECTIONS TO STATIC PRESSUAZ AUD DYWAREC AL 
PRESSURE aL 

aL 

16) CALCULATES POSITION ZABOR CORBECTION RATIO OP /QC* aL 
AL 

B7p CALCULATES ACCELRBATION-DRPRMORAT COKMECTIONS TO STATIC aL 
PS2ESSURE aL 

BL 

98) CONVERTS TOTAL IBAPERATUES TO STATIC TESPERATURE al, 
AL 

19) CONVERTS STATIC PRESSORE TO DENSITY aL 
aL 

20) COMVESTS DENSITY T0 ALTITUDE aL . 
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213 CGRVERTS INDICATED SESSPEED TO TRUE ALBSERED ar Dt 
a ee Re) BO NRT eet! 5 ane 
22) CGRRECTS FITCH ANGLE IRDICATION FOR KUOUN INITIAL @IAS BUD aL 63 
AUGEE OF ATTACK IMBDICATION fO8 ENSTRUBENT LOCATION aL re 
23) CALISRATES ANGLE OF ATTACK IBUDECATEONU hg . 
24) PEEPABES DATA FCR DATS REDUCTION SECTION wo. 2 aL cs 
aL 
at 70 
aL 671 
THE FOLIOSING COMMENT CARDS DESCRIBE THE MECESSARY LMPUT FOR aL 72 
DATS BRCUCTICN SECTICH HO.1. FOR A SORE PRECISE DESCRIPTION, aL 73 
CCUSOLT THE COSERS LUSTROCTICEHS. aL 74 
aL 75 
aL 76 
IUuUPOT 9°69 CARD 1 aL WW 
. thie pte 4 3k aL 78 
BSETS -> WUMBER OF DATA SETS TO OE AMALIZED. aL 79 
{ -1 < OSETS < 11) - OL ao 
: - ab 81 
- BETBIC <-> TYPE OF COTRUT UNITS. ae 62 
#2TRIC=0 > ENGLISH UNITS aL 83 
METRIC=1 2 SI UNITS i Sl 6a 
aL «85 
- - ab 86 
_ aL 687 
TEPUT See CHRD 2 aL 86886 
: 3° Sy a a . " see ren ie a aL a9 
ICODE <-> ICODE=0 =: CGNTIBUOUS BEIGHT TIME uLSTOAT aL 90 
“> (COUTIRTOUS FROR FIRST O2 PABCEDING a § «(91 
WEIGHT TIRE HISTORY WITH HO ELAPSED SL 92 
TIRE COMSIDERALTIONS SETUREW BAUROVERS) aL ae 
eee hoe 8 ces | cer | 
-ICODE=1 = DISCONTINUOUS HW2IGHT TIME HISTORY aL 95 
-_ (CONTINUOUS FROM FIAST OR PRECEOLEG aL 96 - : 
“GEIGHT TINE HESIORY WITH ELAPSED TIAE aL 97 : 
CONSIDERATIONS BETWEEN BANEDVERS) aL 98 : 
- aL 99 : 
BL 100 ; 
ML 101 
ISPCT ¢98 Cand 3. aL 402 i 
SL 103 
WORBED -> AAZINOA BOMBER OF LHPROVEREUT ITERATIONS at oe 
: , aL 
ELAE -> ELAPSED TINE 10 GANEUVER Iu SECONDS SL 106 
' -8L 107 
‘SFILE -> CATA SET FILE NOMBER aL 108 
be aL 109 
FVL G1) ->* LOCATION WURBRR OF VARIABLE IN 2mD DATA FIBLD aL 116 
EVL(2) -> [LOCATION BUNBER OF VARIABLE IM JR DATA FIELD aL 41 
I¥L (3) -> LOCATION BUREES OF VARIABLE I 474 DATA FIRLD ML 412 
IVL {8} -> LOCATION NUMBER OF VARIASLE IW STH DATA PIBLD AL 113 
XVL(5) +> ICCATION BSUABEH OF VARIABLE Im OTH DATA FIELD aL 314 
I¥L (6) -> LOCATION BUABER OF VARIABLE ZN 7TH DaTa PIRLD ML 845 
» TUL (7) => LOCATICH BOMBER OF TABIABLE IM GTH DATA FIELD gL 116 
TUL (6) +> LCCATION HOMBER OF VARIABLE IM STM VATA FIABLD aL 147 
IVL (9) -> LOCATION NUMBER OF VARIABLE Iu VOTH DATA FIELD SL 116 
aL 19 
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 assoneo BUMBER OF DATA POINTS TO BE ANDICATIVE OF 


FOUBIES SERI®S CUTOF® HARMONIC FOR ALASPRED'S 
STATIC PBESSUAR MEASUREBRUTS OC NCH (7) <66 © 


FOURIER SERIES CUTOPP WARHOMIC FOR ALTITUDES 
STATIC PAREZSSORE KEASUBESEUTS O< UCM (21 <66 


FOUGIER SERIES CUTOPP H&aRHOMEC FOR ALMSPRED"S Awd 
BITEWUOR*S STAGNATION PRESSURE O<NCH (33 <66 


FOUSIER S2areS CUTOPP HARMONIC FOR STAGNATION 
TIRAPERATORE HEASURESEUTS O<uCu{ 4) <66 


_ RAG TTOR INTRGVAL FOR STAGHATION PRESSURE SYSTESS 
- Je sicomos 


Lac TEBE INTSAVAL POR ALTITUDE’S STATIC PRESSURE 
SYSTEMS Im SECOUDS 


LAG TINE IUTERVAL FOR ALBSPERD*S STATIC PRESSURE 
SYsteas Iu S#coups 


“LAG TINE COBSTAST FOR STAGNATION PBESSURE SESEPAS 
Ia SEICORCS 


kaG TIBE CONSTANT FOR ALTITUDES S STATIC PRESSDRE 


SESTERS IB SECONDS 


LAG TIME COSSTAMT FOR ALBSPEED*S STATIC. PRESSURE 
SYSTESS Im SECOMDS 


A REQUIRE PRASE SHIFT 


PITCH ASGLE DRIFT (RADIAU/SEC) USED BY¥: 
PETCH ANGLE (BEG}=PITCH ANGLE (OLD) eDRLET* (POINT | 
MUSBER) /{TOTAL MUSSER OF POTATS) 


PHASE SHIPT EABASETES FOR PETCH ANGLE 
LSP{1)=0-3 - 40 SUIPT (COMMUTATION) 
ASP{ip=t:s SHIFT (PREQUENCY BOuU LATION) 


FHASE SHIFT EARANETER FOR PITCH BATE 
LSP (2) 20 3 &8O SHIFT (COSAUTATICN) 
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ES(2p5t s SWIPE (PBEOURNCY gO0U LATION) 
“PARAMETER FOS 41BSPRED 

BO SHIFT (CONMUTATIUs) 
‘SULFT (PREQUEWCY mODU LATION) 


PRAS® SHIFT 
ESP(3)20 : 
ESP (3p. 28 : 


PHASE SHIPT FARAMETER FOR STATIC PRESSURE 


LSP(4)20 > SO SMIFT (COMAUTATION) 
USP(S)=1 > SWEPT (FREQUENCY BODU LATION) 
PAASE SHIFT EARANETKR POR ANGLE OF ATTACK 
LSP(5) 20 ; | 80 SHIFT (COABUTATION) 
ASP(5)=1 2 SHEPT (FREQUEUCY MODULATION) 
GHASE SAEPT PARAMETER FOR STAGNATION TEAPERATURE 
ISP(6)=0 : 80 SHIPT (COMMUTATION) 
— ESP(6)*1 05 SHIFT (PREQUENCY MODULATION) 
PHASE SUPT EARAMETER YOR LONGITUDINAL ACCELERATION 
LSP(7) 5: RO SHUIPT (CONAUTATION) 
ESP(7)=1 s SHIFT (FREQUENCY BODU LATION) 
PHASE SUIPT EARAMETER FOR VEGTICAL ACCELERATION 
~Lse(8p*0 : 80 SuZFT (CONAUTATION) 
LSP(@)=1 : SHIPT (PREQUENCY sODU LATION) 
PHASE SWIPT PARAMETER FOR ELEVATOR DEFLECTION 
ESP(9)=0 :  §O SuIFT (COANUTATIUS) 
SHIPT (FREQUENCY #ODU LATION) 


ISP (9) =1 2 


ursc agen In squaae Fert 
Gross TARECEE WEIGHT TT pouups: ronce 


PUEL CONSUMPTION BATE iu POUNDS POSCE PER SECOND. 
PROS TAKEOFF TO PLAST SAMEUYER 


FORL CONSCNPIIOU RATE Ie POUNDS FORCE PER SECOED 
EORISG BAMEOVERS 


ANGLE-CP-ATTACK ZUSTRUNEST LOCATLON #RON CENTER OF 
GRAVITY (POSITIVE IF KACG AHEAD CG, MEGATIVE IP 
KACG BEMIND CG) Ib FRET 


RRCUN PIZCH-ANGLE EMSTRUBENT BIAS CORRECTION Ib 
RaDI ANS 


CALIBRATION FACTOR TO AUGLE OF ATTACK 


CALIERATION TERN TO ANGLE OF ATTACK IM RADIARS 


CCHVERSICN FACTORS O8 TEBKS 


TIHE TO SECOBES 
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‘c ' CP¢2) <->. WEIGUT FO FOONDS FORCE cee: OL. 282 Cc @® DOATA RESUCTION SECTION BO. 2 © SL. 302 : 
¢ ee Saar Sr Neon tye a eee ee | @L 243 ¢ Wenn She eben atl co Tae — Mb 303. 
c CF(3) -> PATCH ANGLE TC BADLANS al 266 c SOOO 08000 O8O86OSSSCOSS OEROSES 09 086 eb 306 ‘ 
c aL 285 c ai 305. ' 
c CE(4) <-> PITCH BATE TO MADLAWS PEA SECOND ==: aL 246 c ai 306 . 
¢ BL 247 Cc . aL 307 
c C¥(S) <-> ATRSPEED TO BEET PER SECOND aL 248 c THE FCLLOWENG PRCGRAM CAFABILITIES a@2 OPTIONAL. THE OSER auUST ah 308 
c eet is aL 249 c ’ SPECIPY THE DESIRED OETIONS. THE USER SHUULOD COBSULT THE USERS aL (309 
ot ‘CP(6) <-> STATIC PRESSURE TO POUNDS FOKCE PEM SQUARE POOT aL 250 c TUSTHOCTIONS (°FDRI*, SECTION 2) FOR *ALLEGAL® OVTION COMBINATIONS. AL 310 
 * core remwam | rer c GIVES VALUES CP THE ATRCRAPT CHASACTERISTICS au TINK KISTORIBS OF HL 311 
ae CF(7). => ANGLE OF ATTACK TO BADIANS AL 252 c WEIGHT, PITCH ANGLE, PLICH RATR, AIRSPEED, DENSITY, ANGLE-OF- BL 312 
c ME 253 c ATTACK, STATEC TEMPERATURE, LOBGITUDIMAL ACCELERATION, ALTITUDE, SL 313 
a CR{68) -> TENPERATURE PACTCR FOR DEGREES 2ANKIUE AL 256 c VERTICAL ACCELERATION, ANC ZIEVATOR (OR STAGLLATOR) DEFLECTION, AL 318 
iz @- T = CEES) *TENP ¢ CP(9) ai: 255 c THIS SECTION PERFORAS THE FOLLOWING: ah 6315 
ec CP#q9) <-> ‘TEMEERATURE TERB FOR DEGREES BASKINE RL 256 c aL 316 
c T = CE(B) STEMe ¢ CFE9) :. gt 257 c ; SL 317 
c CREO) +> LONGITUDINAL ACCELERATION TO Fert Pck :. OL 258 Cc’ 4) PEBPOBRAS FOURTES AWALYSIS ANDO FILTERING OM WEIGHT TIRE HL 318 
c SQUAREB SECOmD . SL 259 c . Estos BL 319 
c AL 200 Cc aL 320 
c CE(W1) <-> VEETICAL ACCELERATION TO PEET PEG SQUARED SECONDS: @L 261 Cc: 2) PERFORMS FCURIER AWALYSIS AMD FILTBAING OB PITCH ANGLE TYSE SEL 321 
c [= ib 262 c HISTORY aL 322 as 
Cc CP(12) -> ELEVATOR DEFLECTION TO RADIANS AL 263 c aL 323 oe 
et SL 268 c 3) PERPFORAS FOURTER ABMALYSIS ASD PILTEAING OM PITCH RATE TISE AL 3248 % t 
c . HL 265 c AISTOAY aL 325 
¢ | Sh 266 Cc AL 326 
'C UsP0T eee CARD 12 eM 267 c &) IBTEGRATES PIICH RATE TO OBTAIB PITCH ANGLE, IF DESIRED aL 327 
c : AL 266 | c GL 326 
c BOTS -> SUABER OF POINTS OM DPQCP WS. VE CURVE <21 aL 269. c €) PERFORMS FOURTER ANALYSIS AUD FILTERING OM ALRSPEED TINE aL 329 
c age : AL 270 c HESIORY AL 330 
Cc ak 278 c ak 331 
c AL 272 c 6) CALCULATES ACCELEBATION PROM AIRSPEED aL 332 
C LUPUT 6° CARDS 13,0.2,5 (U2¢HETS) SL 6273 c aL 333 
c as NL 278 c 7) PERFORGS FOURIER ANALYSIS ABD FILTERING OM DENSITY TIBE ak 338 
c DPQCP -> SEASURED POSITION ERROR CORBECTION @aTIO aL 275 c HISTORY aL 335 
c AL 276 ¢ aL 336 
oe VE —> MEASURED VALUES OF INDICATED ALSSPEED IN PEET PER ME 277 Cc €) PERPORAS FOURIER AWALYSIS AND PILTEZERING GH AMGLE-OF-ATTACK ME 337 
c SECOMD - AL 278 c TINE HISTORY a aL 336 
c: NL 279 c aL 339 
ae “Ak 280 c 9) CALCULATES ANGLE-OP-ATTACK BATE FROM THE POURIER-PILTER BL 340 
¢ ae SL 281 c MCDIPICATICN CF ANGLE CF ATTACK OB F508 DIPFEREMTIATION OP SL 341 
C EMPOT 9 “CRADS*. (TZOMETS © 1) 0 ong (UZHMPTS OK) (FAON LATA SET JPILE) 4& 282 c SELINED-INPUT ANGLE OF ATTACK SL 342 
c Sy a aL 283 c BL 343 
c TOEUTIFICATION CP MECESSAGY LeUPUT TIAs HISTORIES BL 264 c 10) PERPOSHS SOORIZR ANALYSIS AWD PILTESSING OF STaTIC Ab 340 
c. AL 285 c TENPEGATURE TINE HISTCRT SL 385 
-c TIME({I) -> TIE vi 4b 286 c AL 346 
oc C¢l,2) ~> PITCH ANGLE BL. 267 Cc 41) CCRYZRTS LONGITUDIWAL ACCELERATION IWTO ACCELERATION aL 347 
c : O(%,3) <-> PITCH RATE aL 6268 c COMNEATIBLE WITH AIRSPEED HL 348 
re: seo DEE ap >) BERSPEEU a '- E269 c BL (349 
c : DQI,5) -> STATIC PRESSUBE . BL 290 c 12) PERPORNS FOURTER AWALYSIS AWD PILTERING OF LONGITUDIMAL AL 350 
c CiI,6). <-> ANGIE OF ATTACK ; as aL 291. c ACCELERATION TINZ HISTCRE AL 35% 
¢:. CqI,7) -> STAGHATION TEMPERATURE AL 292 c ie, SL 352 
c D{E,8) => LOMGITUDINAL ACCELEHATION BL 293 c 13) PERPORMS FOURIZR AMALYSIS AND FILTERING OF ALTITUDE TINK BL 353 
et BiI,10} -> _ VRBTICAL ACCELERATIGCN ; AL 294. c HISTORY ML 35% 
c C(1,11) -> ELEVATOR GEPLECTION aL 295 c. AL 355 
Cc. : Do AL 236 c V4). CALCULATES DEWSITY FRCa ALTITUDE 2 OL 356 
c! - BL. 297. c ee . QL 357 
“¢ _ BL 298 c - VEp CALCULATES ALTITUDE RATE OF CHANGE AMD ACCELERATION FROR aL 358 
c ar bd tictite eta ot a . BR. 299 c OLPPEGENTIATICNUS CR THE FOURLER-PILTER SODIFICATION OF GL 359 
Cc OOOL COLO OSLO ESOS OSOSES EOHOEDS OF O88 aL 300 Cc _ ALTITUDE OR SPLINED-IKEUT ALTITUDE aL 360 
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13 FORMAT (2720.0) pia aL 729 30 DO 32 1=1,K aL 769 
c aL 6730 LP «CP E1p.80.0.060} GO TO 31 os au 790 
K=1 at 731 TINE (I) = (TIAL (1) ~TPT1) OCR (1) aL 739% 
c | : tie “Ae of BH SL 732 GC 10 32 aL 792 
c 7 aL 733 39 TMOG) <TIMZ (1)-TeTI av ‘OL 793 
Th MRAD (IFLLE, 15) TIME(K) DOCK TVL(1)) DIK TVL(2))o DEK, X¥LE3)) -D(KTV SL 738 32 CCHTISDE ; aL 796 
- VE COD DCR TIL (5) ) OER, TVL(6)) .O(K, LVL(7)) ,V(K, LVL(9)) DCR LIL (9) = ML 735 ‘Cecoe WRITE TITLE, WING AREA, BEPSRENCE DENSITY, G, AvD TOTAL TEST TIBE..@L 795 
95 POBNAT ¢9015.875D15.8) _° aL 736 WRITE (QURITE, 33) (TITLEGI) -§=1,20) au 6796 
Ceoee CWECE PCR DATA SOT BND OF PALE 3 t mL 737 33 FORRAT (1H1,//// 9 23EeGH (899) /o 23 e808 B2K,9 S* of 23K ,°%"  2ORG2K,° ML 797 
EP (8.GE.450) GO TO 21 . aL 738 WOE ZIT FO! B2E ego dN EU LTO*DS ; ‘gL «6798 
_- ER {24K,5)-2Q.0.000) Go TO 20 aL 739 Ceoe UBER TUPUT EABAMETERS aL 799 
_ TP (8.GE.2} GO 10 16 iy ig UP A ee — BL 740 - WOTIE (I8RTIE,3%) BSETS pace 3 au 800 
66 10.17 EN ty. aL 7461 3a PFCRAAT UND, 7/70 29K 0 BUCH DS eZIhe Oe GIN o 8 b9 o/ of 9K, hs IDE GNUSETS BL 661 
| eee CHECK PCR EQUAL OR GECREASISG TIME 2 7 QL 742 ~~ gee 2,29E, 9) ep /e29N eb AR, ZEUSECTION 1 LUPUT PARAMETERS, 235%, 5MICOD aL 802 bel XG 
NG ER (TIBECK) .LE.TIAE (K-1p) GO TO 18 AL 743 1B, TUN," 1") BE. Ot? ss | ‘ae 
17 K=Re4 a Bk Tea WREIL (IWRITE, 35) (ICCDE(I) ,T=1,NSETS) ai 6608 
- GO TO 4 ar oa oe SL 745 ‘9S PCROAT 429%,°)* 562,171,122, °4%) SL 805 
$8 BMITe (JUBITE, 19) K g2 ht inh 2 al 746 2 _ WRITE CIBRITE, 36) aL 806 
2.99 FOMBAT (1H1,7//, N10, 54H99¢ ECUAL OR DECREASING Tine EUCOUNTERED OM AL «74? 36 POBGAT (29K,°1*,69%,°I") ai 807 
BATA CABD(,13,428). PROCERDING WITH WEXT DATS SET, IP ANT.) ~~~ ML 748 . WRITE (ISEITE, 37) SETRIC, ELNGT) ,PCRI,CP (4) ,UCH(3) LLU (2) oPCBZ,CP (2 at 200 
(o) AERG=T BL 749 Ap HCH (2) BEN(3) , RACG, CE (3) p 8CH (3) eTAU(1) PCCG, CH (4) g NCH {4} TAD (2), BE 609 
,  2¢ Mets) , hese a. @ aL 750 | — WBLETCECS) o5¢ThU (3) CALE2, CP (6) METS, GUT, BSPTS, CP(7} -LSP(1)LSPQ2 BL 810 
EP (TERBL§Z.0) GO TO 22 BL 751 y RSEC3) oLSP{4) -CHCG) @LSP (5) oLSP(6) oLSE (7) LSP (8) CF (9) -LSP{S) BLA aL ati 
oo GO 10 24 SL 752 th OSIFT, CP (10) ,CP(31) ,CP(12) aL 812 
- Ceee SaPETY CHECK POR ARRAY OVERPLOW ; ae Ob 753 - . 37 PORMAT (29K,°)°, 3%, °METAIC= °,X3, 20, °LA(1P* °F 74,21, 'PCII= *,79 aL 8t3 
 . QU aP (Dqw,5)-2C.0.0D0) Go TO 20 ab 758 . By Ae CP CUP= 9 DIDI 2B boo ZI 08 Heo 3K, UCM (VP= § 5 E39, 2K, ELA(2) AL 816 
_ Kane oa aL 755 ' te 9 PFW 2K PCRZ= 8 F962, *CR(2P% "DIV. 3, 20, 94% /o29Ke Ng 3K, AL a15 
_ 22 dk=1000_ SSN Ea eG Me wane * ig SL. 756 . WCHI2)= 9,13, ZF, ELA(3)* [oPT.4,2U,°EACG= §, 29.6 ,21, °CP (3) © ¢,D10. wL 616 7 
| Ceee THIS READ SIATENENT MEADS CARDS RESAIBIUG APTER BAKINUN CaBO 8 = al 757 DZ hese 2IN eh te IK, * BCH EI) * ©, 23,20, "TAUQI) = *,87.8,20,°PCCG= * aL 9817 oo a 
ceee CCUST LETC CUBBY VAST ABLES att beans aon ke ‘ak «6758 VePS6 230 °CEEU)= © DID. 32 oN ef e 29K bio MK, UCM(ND= 9 -T9,2K,°TAU WL 18 
o BO 23 JP=1, 0K _ 8b 759  FCQp = 8OE7LG 2H, CALOIs 6, P6.4, 20, °CR (5) = © DID eke 1 es e29Ke th *s HL BID : 
@ZA0 (IPTLE,15) 01,02,03,D%,D5,06, 07,06, 09,010 aL 760 132, °S= *, PAG, 20, °TA0 (3}= °,87.4,20,°CALPL= *, Pd.K, 2K, °CP (6)= #,D1 AL 826 + 
re (05.&Q.0.6GDS) GO TO 2% | aL 761 . 10030 2ho ho jo 29Ec 0 to 3KeARIS® §, 13,40, °GUT* *,P10.5,22,°ESPTS* %, Ki. @21 | 
—- 23 COUTIAUE BL 762 FE 3, PEOMCP UID= * D103, 2B hfe ZI bo FRe LSP (L)= © It, 23,*kSP(2) at 622 
cose CHECK O8 TOTAL BROUSBER OF POINTS aL 763 We 811, 2k eo LSOC3P= °, LI, 2K, "LSP (4) = ©, LU,5X08Ck( ays §, 010.3, 25,509 BE 823 
Ze 18 (K.LT.13) GO TO 25 rn a i aL 7648 Vee 2B 2% e IE, °LSE(S) = "LTV, 2Ee LSP (G)= *,FVV2K, LSP(T)= *,Tte2k,* AL 628 
. Le (TERS. 82.0) GO TC 10? aL 765 PLSB (B= ©, L1,5Ke "CP (I= 9 .0W. Behe boo ZIe A Ske LSP(S)™ Vel te BL 825 
_ GO 10 2) aL 766 420, °ELAE= *,P9.6,30,°DRIPT= °,F9.2,2%5°CH(10) =", DIG. 3, 2K, bo /e29 AL 626 
25 @RLTE (IWRITE,26) BL 767 199 $%, 500, °CE{3 1) =", DIOL I, 20598 fe LOK eb SON, MCR (92) =", DIO. 3, 2K 2° AL 827 | 
26 PCORAT (1X,///, 00%, 79HNUMBE® OF DATA POINTS IS LESS THAN 13. PRO BL 766 Wore 2De h CIE hee 2K he UK, CVR® 9K, DPOCE*, IFN, )%s/e 2ST." BL 626 
ICEEDING VITH WERT CATA SET, IP ab¥.) Be cnn fi 769 19°, 695,°3") aL 829 
 *TRas=) aL. 770 BRITE QIORITE, 38) (VEC) OPCCE (IL) 123, RPTS) aL 830 
Ceee CHECK FOR A WE DATA SET aL 771 ; 36 POBRAT (295,°)° V7, P94, 3R F906, 31K, 8h") aL 631 
GC 10 117 ~-- @b 772 BOITE. (JUAITE, 39) aL. 832 
Cees CHECK PCR C[OCONMSISTENCEES IM FOURIER SERIES SPECIFICATIONS aL 773 39 POBRAT (29%,°1°.690*_ "pet hD at 833 
27 EP ((RCHE') LEO. OR. NCH (2). LE.) .OB. (HCH (3) -LE.0.OR.NCH(M}.LE.O) DL aL 77% IP (8ETEIC.NE.0) GO TO 41 ak 638 
twc=1 "eb. 775 BOETE (IWRITE, 40) S,RUO,G,TT , aL. 835 
Ke (lNC.N8.0) MBITE (JINBITE,26) aL 776 WO POBBAT (100/75 38%e51(8S*) 5/9380, 9%* NIK, 108g fg 30K, 9%? , NIN BENG ABE AL 836 
26 FORBAT (THI,///_1%,°MCH{1), MCH(2), NCH(3), AND/OR WCH(S) HAVE(HAS SL 777 18 =: ,P10.5, 6H PTOO2,204,°¢* 9/308, 99", 23K KEFEREMCE DEUSITY = ,F10 aL 837 
1) BREN SPECIFIEC IMCORMECTLY 4S BEING LESS THAW OR EQUAL TO ZERO.* AL 778 1.0, 11H SLUG/PT993, 72,94, 7,300, °°", 31M ACCEL EMATIGON DUB TO GRAVITY BL 838 
v BL 779 t= . 97.4%, 108 FI/SECOO2, 1K, °¢*,/,300,°9*, 19K TOTAL TEST TIRE = ,F10 ML 839 
IP grec .WE.C)LERR=3 AL 780 109,88 SECONDS, 120, °?* ofp IST tO BIE GO o/e3OK D1 FO") ) ai 840 | 
$ 


3 rae i ; fw gas fe ’ : ings : a 28 i danny vey * ee : got dee tebe eng ; es : heen a ane pra os 


LZ 


GO 10 83 
@1 S¥m2S0 (0. 308eD0) 902 
@HO8R=810°S 15. 3800 
Gih*G*0.3046D0 
SRITE (JUAITE 42) SEN, RUCKE GER, TT 
a2 FoaRat (4X, 7/,38E, 51090"), 7, 38x, 808 


os 4F11.5,5H ROO2, 20%, °9*, 7,384, ¢8 


AL 
oO, 99867, 30K, 90°, 334 WING ARF EE 
*. 2B REVERENCE DENSITY = , P42. aL 


18,46 KG/M}, 8, 80%, 7, 305,909, 34H ACCELEMATiVN VEL. TO GRAYETY = PAL 
18.4%, 94 B/SECOO2, 14, °9*, 7,388,889) 25H TOTAL TEST Tlax = oPF10.9,8H 5 aL 


WCOUDS, 125,968, 7,302,984, 49K, 808, 7, 


Jan, 5i(tess) nL 


Cees COMEUTE AIRCRA?PT UPicat TIB® wistary aL 
3 re (ECOCE (KJ). 20.0) tGut=1 SL 
IPF (ICOCE {KI}. 8E.0) IGut=0 aL 
Ie (RJ .GT. 1. ABO. IGHT.2Q0.3) GC TO &? AL 
IP (HJ. EQ. 1) WARK (8 I)=GET-PCEIeELAP aL 
If (RJ.GT. 1. aN0.1GHUT.29.0) GC TO we wnee aL 
GC 10 #5 al 
4 VERN (RI) =822R (KI-1)-PCelegLaAs aL 
' §5 BO S6 I21,K ab 
46 © 40,0) =OAE8 (83) -PCRI°TIAE (1) aL. 
WERE EKI)=0 (KR, 1) SL 
.. GC Ico. e@ BL 
07 BAER (RI}=BAIA (RI-1) aL 
oo) GO fe a5 : ca ao. OL 
Cease CCUURET FELIGAT PARAMETZEES Tc COMPATIBLE UMITS. Bs a | @L 
88 BDO £8 T=14,K oe ee ; NE 
pS, TF (C®(2).2¢.0.0D0) Go ro 49 | ML 
Ceoee COMVEST WEIGHT TO Lee aL 
%. DAZ, U CET, 1) 9cEe (2) aL 
oe «9 IPF (CP (3) .£0.0.0L0) GQ To 50 SL 
Cee CoureatT PITCH ASGLE TC BAD auS ML 
Cae O12) =C (1, 2) oce 43) : SL 
Csee. APELY PITCH ANGLE CRIET IPF SERCIPIRD 4 rae . | 
= tig IP (DATPT. BE.0) 0 (1, 2)=0 (1,2) ¢URLET ©DFLOAT (1) /X : WL: 
. §0 28 (CF (4) .20.0.000) GO T0 51 : Ae. oe “4 nr | 
Coe CONURRT PITCH BATE 10 BADIassysskc ft aL. 
OEE, 3} =D 1,3) 9CE (a) aL 
St re {CP (5) .20.0.000) Go to 52 aL 
Cese CONTEST AIRSPEREL TO PL/SEC OL 
o D(T, 4) =D (I, 4) ©CE (5) al 
S52 re (CP (6) .8Q.0.050) Go to §3 2 BL 
Cees CCHYEAT ST&TIC PRESSURE TO LB? -2Tee2 ‘ ; au 
7 D(T. 5) =0 (7, 5) OCH (6) re aL 
53 If (CP 47) ..20.0.000) Go ro &« aL 
Ceee CoNvERt ABGEE OF ATTACK TG Psorecs AL 
@ (I ,6)=D (I, 6) *CP (7) ek 
Se IF (CF (8) .BQ.0.000. AND. CF (93 .20.0.0D0) GO To $5 aL 
ceee COnvEat TEAPEHATORE TC CEGREES BANMKIME aL 
D1, 7) =CP (8) ¢D (1,7) eC 8 (9) aL 
55 IP (CF(10).2Q.C.0D0) Go To 5é ak 
Cees CONVEaAT LONGITODI NAL ATCELERSTIOCN TO PT /SECee2 ; aL 
DIT, @)=0 (1, 8) cP 440) aL 
S6 re (CP(¥1).89.6.600) Go ro «7 aL 
Coes cCOonYeat VEATICAE ACCELESATICH TO PT/SEC8e2 OL 
O(T, 10) =D, 10) ecF (41) aL 
57 IP (CP (12). 89.0.0D0) Go to Se aL 
Ceee CONVEST ELEVATOR (OB STABILATOR) DEFLECTION ro @aoraus aL 
O(E,19) =D (I ,10) C2 ¢12) SL 
S@ CORTENOE ar. 
Ceose 


ADJOST CATA FOR AN aSSONHED FHASE SHIFT aL 


843 
892 
643 
ty) 
885 
346 
647 
646 
849 
850 
851 
652 
§53 


854 | 


855 
856 
a5? 
858 
859 
860 
661 
862 
663 
664 
865 
666 
867 


868 


869 
876 
e771 
872 
873 
@7u 
875 
876 
877 
av6 
679 
880 
6@1 
6a2 
663 
884 
6e5 
866 
0a? 
Ty 
ea9 
890 
691 
092 
693 
898 
895 
096 
897 
TT 
a99 
900 


Cose 


6 
Ceee 


Coee 


Ceee 


59 
Ceose 


Ceee 
Ceose. 
6 
‘Ceee 
62 


Cees 


Ceee 


€3 


Cese 


Ceee 


ee on er 


IP (WSP1S.8R.0) CALL SHIFT (ELSP,USPTS) 

CCOEGIE PITCH ABGLE B18S °° 

PAL-LARSTN(E (K,8)/6)-C (KR, 2) 

ADD FITCM ABGLE BIAS 10 PITCH ANGLE 

BC 59 I<t,a 

D(1,2)=0(%, 2) ePan 

AUTEGRATE PITCH Bate 

P8I*0.060 

RAI=5-1 ee 

OO 6C £=1,Kn1 

eee Pa eO-S00% (1B (161) -TL BRL) ) © (BELe 1, 3) oD 42, 3) 
COMEUTE PITCH RATE BIAS wo oe 
CBB=- (PSE 6D (1,2) -D En, 2))/TT 

AOD FITCM RATE BIAS TO FITCH BATE 

bO €1 I=1,K 

Dél,3)=C(1,3) ePpas 

AGITIALIZE PARAMETERS POR PEASE SuIFT DETSeUl WAT ION 
BSPTS=0 

t=1 

RECZK-"SPTS 

$15=0.000 

ST40% SUAMATION PROCESS 

DC €6 Tet, HEC 

EMTEGRATE PITCH RATE 

PSt=0 41,2) 

CO 63 J=4,1 

IP (2.26.1) GO To 63 


PRI=<P27 0.5006 (rr Ke (5) “TIME (3-1) )%¢8(3,.) oD(J-1,3%) -. 


Cousimos | 
388 ERCEUCTS OF PITCH ANGLES 


ry SES@STS o{PRI~D IK, 2) )* (DEL OMSPTS, 2) -D (K,2)) 


SIOSE Vales 
SUPC (L) =S75 

@9PC(L) =<ESPTS 

RST POR MAXIAUA EHASE SHIPt 

TF (6SP1S.20.10) Go To 65 
TOCSERASE PHASE SHIFT ANE CConrga 
BSPIS=NSPTS ef} 

baked 


' GG TO 62 


Coee. 
65 


66 
67 
68 
oo) 


+ 


Cees 


Cese 


Coes 


DELOSAIBE SAZIAUR PITCM-ASGLE PRODUCT 

STS*SVPC (T) 

BO 66 I=1,10 

re (S¥PC (I) .GT.STS) StS=S¥RC (I) 

DO 67 121,10 

Le] 

IP (£¥#C(I} 20.578) GC TO 68 

SSETS=*BVPC({L) 

BRITE (JWAETE,69) USPTS, P48, Fas 

FORaat (1X, //, 35%, 3 NCALCOLATEZD PUASE SUXFT Count « 
VALCOLATED PITCH ANGLE BIAS 
WEED FITCH BATE eras = ,1P019.12, 04 BAD/SEC} <A 


meetin seme ce ee ee 


o52n/,395K, 398C 


ADJUST OATA PCIUTS, IP BECESSABE, FOR A CALCULATED PUASR SUIPTt 


IF (USPTS.UE.0} CALE SSIPT (8S LSE, SETS) 
COMEDTE PARAMETERS POR TOTAL TENPESATURE 
SPT= (]¢ECcR (4) ) 2 

SOTE 1=AET CF 

LwBsi=<90 

IBITIALIZE INPROVEN ENT COBPPICIg2eTS 

BO 70 r=*,6 


955 
956 








DB secede aie retire ce cee aS ee 


70. PAS (1) *0.000 


Coes 


nN 
cose 


Ceee. 


72 
2 


ithe, Coes 
. Cee. 


eeee: 
Gees 
Caen 
cess 
gees 
cee, 
“Cooe 


; a 
Cees 


IPAS=0 : 

IP quonere. it. 0) RUABERK6 

SUN=BUnZERS 1 

BEGIN TOPROVENENT TUERATION |. . 

DO 199. J0JJ=1, NUN 

10= 11 AE (Kk) -~TIBE (4) 

DO 74 121,K 

TE=TIAE AL) “TINE (4) 

P1(1)=0 (1, 7)~ (D1, 7) ¢ (04K, 7)-D( 1,792 /TDOTE) 
CCBIINOE 


COAPUTEZ AMD SAHOOTH FOURIER COEFFICIRSTS OF STAGNATION cpeeiarap tae 


CALE FAGAP (FI, RK, APTE3, BCH (4) sti 
BEGEBERATE SHOOTHED STAGRATICH TERPEDATURE 


~£isaey 


‘po 73 L=1,8 
TL=TIGZ (L)-TIBE GY) 

‘82=B (1,7) © (DEK, 7) - DEv.7Dp/ToeTE 

(43=0.000 

DO 72 N=2,8F1F1 


| Fag Rek on) evcos (ze GH Hy oper TAR (Ly /7T) #8 EH) eDSIN (26 (a i cael aa 


Apstt) 
costinge 
PU(LD AE ex20x3 
CoulmrMuE 


_ DETERATEE PEASIBILITY OF STATIC PRESSURE BEHAVIO‘ AND MAKE ANY 


‘WECESSABY CCRRECTIONS 

Ka i=x~1. . : ‘ . ie ; 
OO Ve I=1,KH1 _—o est 
Sw=1.0D0 
CALCULATE AM ALTITUDE BY ASSUATUG coustant TEMP. RATURE 


| HF E71. GDG- (D (I, 5) /PST) &* (1.00074. 2609) } /0.80b-6 


CALCULATE A LIMITING ALTITUCE DERIVATIVE BAGHITULE 


HD=DABS (0 (T, 4) (CSTW G1. 200% (Di, 2)-D (h.6)))) 


CALCULATE A LIMITING STATIC PRESSURE DERIVATIVE #MaGMITUDE 


' POPA=CABS (-6. 860-694, 2600 SESE 9HD® (1.6006, 560-6 4) ©°3, 2600) 


CALCOLATE THO-POENT STATIC ERESSURE DERIVATIVE OF TWPUT DATA 


. POR=¢D (te 1,5)-BET, SPP /ATIBE (Le tp -TIMe (1) ) 


DETEGREIBE DIRECTION OF CERIVATIVE 
FP (EABS(PPI) .RE.PPI) Su=-1.006 


CHECK MAGWITUDES OF STATIC ERESSUBE DERIVATIVES AMD APPLY SMALLEST 


IF (CABS (PPI) LE. CABS (PDPA) } ASLE=DABS (PPI) 
TP (DABS(PPE) .GT. CABS (PCPA) } ASLP=048S (POPA) 
COMEUIE ‘WED* SIRZIC ERESSUBE 

D(2¢4,5)=D (1,5) *SW*ASLP* (TIBE (Let) -TIME (I) 
CCHLENUE 
DEFINE STATIC 
bO 75 £21,K 


SND STAGHATICN PRESSURES 


- BSBC(Lp=DI{T,4) 


45 
 Coee 


Oh, 7) =P 1K) 

P(IP=DEE,5) 

PO (Ip=D (1,5) 

PS (1) =P (T} 40. SDO0SPSLy (RETSL) 4D (1,4) #42 ve 
CONTINUE 

COMPUTE LAG-CORRECTED STATIC PRESSURE AWD uC 

P= ¢20NCH (19) 72 

MBR= (3ONCH (2) ) /2 

MPS= (3° ¥CH(3)) /2 

BEPI=ARP +1 


 ABAEUCHEAeT 


ee SO fnete og 
a | 


Base Sethu 


as bes che Ee ot . 
Pater eiye a. re re oe 


f Taw MEL 


ety esis . Nase rameter’ 


96% 
962 
963 
964 
965 
$66 
967 
968 
969 
976 
971 
972 
973 
7% 
975 
976 
977 
978 
“979 
3460 
9a 
942 
983 
924 
985 
9386 
937 
9886 
989 
990 
991 


' 992 


933 
994% 


995 
996 : 


936 


. 999 


997 


1000" 


Wat 
1002 
1003 


. 1008 
-1005 


1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
Ws 
1015 
10 16 
1017 
1046 
1019 
1020 


Ceve 


16 
Cees 


7 
cose 
cose. 


ceee 


79. 
60. 


a)! 
02 


Cees 


‘03 
Ceee | 
Ceee 


Cees 


84 
65 


2 epee epee 


ery toe 
a A 


Fes “Nari 


wrens Syggaseme ae yrenaiee tte covet egegn whe 


PUI La SPIT te Bae Tere h ett Ree bee win cwemee reece emer 


SPS&t=neSet at 16021 
TD=TIGP (K)-TIBE (1) atu 1022 
COBEFUTE DEVEATIORS CF STATIC PRESSURES AND STAGHATION PRESSURE aL 1623 
DO 76 121, : aL 1028 
TR*ST NE (T)-TINE (1) oe da oie @t 1045 
PVC) =P (I) - (BP (1) ¢ (P (K)-2 (1) ) TD OTE) SL 31026 
PIETY =P A(T) - (OA (1) ¢ (PACK) -PACI)) /sTOSTZ) ai 1027 
FICIP=PS (1) - (PS (1) © 1S QK)-BS(1)) /TDOTE) ~~ “Mk 1026 
SET TIME CONSTANTS AWD TISE INTERVALS TO ZERO IF SPECKPIED aL 2029 
LF (233J.80.1) GC TC 78 aL 1030 
DO 77 I*%,3 aL 3631 
XLA (1) =9.0D0 at t032 
TAU (1) =0.000 BL. 1033 
COAPOTE AWD SMOOTH POURFER COEFFICIEMTS OF AINSPEED*S STATIC at 10348 
PRZCSURe :} @L 1035 
CALL FARAP(F1,K, HPP 1, NCH (1) > =" Bh 1036 
SEGERERATE AIRSPEED*S SMOOTHED STATIC PRESSURE AT (TIAE-LASBBA) aL 1037 
orteaqy ae aes = i 9038 
be &0 L=1,k . BL 1039 
TUSTIAE (L}~TIAE (9) - XLS (3) $L 1040 
K2=08(1) ¢(P(K)-B(1)) /TDOTE BL 1081 
43=0,0D0 aL 1042 
- OC 79 U=2,5PP1 BL 1083 
SEITHBea el ocos 20 cao sere crrme (yy -14a (4 /7E)o BLA) eSTE (Ze EE-T)e AL 10HS 
Tele (TIME (L) -RLA (3) ) /8T) aL 1065 
COUTIAOE BL. 1046 
PU(L)=K 1ez2¢x3 AL 1047 
CCUTINDE BL 1048 
Cees COREUTE OERIVATIVE CF AISSPEED'S STATIC PRESSURE AT (TIRE-LAMSDEL) AL 1049 
EDV QE(R) -P (1) /TD ML 1050 
‘pO 8¢ L=1,K aL 1051 
rp2-0. oro’ AL 1052 
bo 81 R=1,5P aL 1053 
ED2=ED2¢20N*I/TT® (-B (MOT) OCSLB 2° MOPLe (TIME (L)—~XLE (3) ) 77) 2B (NET) AL 1056 
IOCCOS (29NOP 16 (TINE (1) -ELM (3})/TT)) aL 1055 
CCOITAGE. aL 1056 
ODL) =XCtexc2 BL 1057 
CORTIBUE aL 1656 
CCREUTE FULLE LAG-CORBRECTED STATIC =RESSURE FOR ALASPEED aL 1059 
DC €3 L=1,K aL t060 © 
P tL) =P? (L} TAU (3) *PD(L) HL 1061 
EP (£20. RK) PEL) =P (L-1) ML 1062 
CCHIINOE BL 1063 
COAPOTE AND SMOOTH FOURIER COZFFICIRNTS OF ALTITUDE*S STATIC aL 1064 
PRESSURE BL 1065 
COLE PAGAP(P2,%, 8PABt, WCH(2)) SL 1066 
REGERERATE ALTITODE*S SHOOTRED STATIC PRESSURE AT (TIRE-LAASDA) aL 1067 
aay BL 1068 
D0 @S £=1,% BL 1069 
TRATIGE (L) -TIAE (1) ~ 208 (2) aL 1070 
R2=BR (1) ¢ (PAR (K)-PA(1)) s/TOOTE aL 1071 
%3=6.000 AL 1072 
80 @& B=2,NPAP1 ‘“@L 1073 
ED-H30A (H OLCOS (20 (u- 1) oPt® ETZEL) “XL (2) )/2R) © a(a) ©DSTH(2® (H-1)* aL 1076 
WEIS (TIGE (1) -XLA(2)) /TT) _ », #6 1075 
COBTINCE AL 1076 
P2¢L) =X 1eX2+23 RL 1077 
COST Ree aL 1676 
Ceee COMPUTE DERIVATIVE OF ALTITUDE'S STATIC PRESSURE AT (TIME-LANBDA} S&L 1079 
TOU= (PA (KP -ER(I)) /TO aL 1060 
sits BED emcee at hata : pe emt 
; é Nes cinemescem ‘enromnmenion: 9 
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DO 7 L=1,5) a al: 1081 Jenetset Bis acces OL tte? 





EB2=0.050 .. i. ae at. 1082 7 $5 Cutwaa(t,a) ML 1992 
00 &6 B=1,AP&S aL 1083 C22288 (2,2) Sb ted -. 
eee ozs Ou OPI/ TES (-B (Bo1) ODSIB (2¢uCPIS (TLR (L)-1LB(2)) 2) oB(8C1) AL. L088. C33=48 (3,9) aL 1186 
VORCCS (29ROPIS (TINE (1) -XLB(2}}/TT}) aL 1065 — - CBMSRR (4,4) OL 1105 
86 Continue: MEL 1086 Ceee COBEGTE LETBSPOLATEC COBBECTION BaTiO. aL tt96 
PD (L)=E0texD2 5! : AL 1087 DPQC= ((CX1* VID OC2) OVINDOCEI) CVINDECES ML 1187 
87 cCoutinusg AL 1088 | $6 PRP (I) aL ttea 
Ceee CCMEOTE PULEY LAG-CORRECTED STATIC PRESSURE POR ALTITUDE WL 1069 If (CPCC. £Q.-2000.0r0) rgea=t - even aL 1149 
: BG €@ L=1,F aL 1090 EP (2EQR.82.0} GO TO 117 aL 150 
PA (L}=P2 (1) ¢TAU (2) PD (L) ah 1091 Ou=Pa (I) GL 195% 
Tf (L.EC.L) PA (L) =PA QL-1) | Mb. 1092 PP<PS(1)-P (1) BL 1152 
68 CCHTI NUE AL 1093 OE<CECC SPP Si 11953 ' 
Ceee COMEGTE awD SHOOTH POURIZR CORPFICIENTS OF STAGUATION PRESSURE BL 109% PL=EE+De fee va ML 1258 
CALL PARAF(F3,5,A2SP1,0CH(3}) ‘BL 1095 PLUCEROLP SL 4155 
Cees ARGCEBERATE SHOOTHED STAGMATICH PRRSSURE aT «FIBE-LASBBDA) aL 1696 Cees COMFUTE STATIC TRAPERATORE BR08 STOGHATION TEEPESATCRE, ORESITE RL 1156 
aa Kiz3(1) @L 1097 Ceee . PACE STATIC PRESSURE, ALTITODE Paos DEUSITY, 0D TAUE alasPERD @l 1157 
©O SO E=1,K SL 1098 Cees PROB INDICATED AIRSPRED aL 1158 
TA=TISE (L}~ TIME (1)-XL8 (1) BE 1099 ST «I, 1) =D¢T, 7) ; aL 1359 
E2=ES (1) ¢ (PS(K) -PS(1)) /1D9TX ai. 1100 DAL. 7) =0 (0.7) / ( (1-000 CRN / ER) / (EM/PRODEQC)) ©® ( (GARKA~ 1.000) /GARHA) SL 1160 
-43=0.0D0 aL 1101 S2q1, 2) =D (1,5) mL 1161 
DO 69 B=2,8PSP1 aL 1102 B(E,5)*R8PT° (ELH/D (I ,7)) aL 1162 
aoe raga (a) OCOS 424 (u~ 2) OPIS (TIME (L) -4LA( 1) ) /TT) ¢B(M) SDSIU (20 (H-1) 8 BL 1103 ig B (1,9) = {1.000- (D (1,5) /AHO) © (1.00074, 2600} ) /6. 86 D6 BL 1163 
We (TIME {L) -xXLa (1p) /T1) aL 1104 $2 (2,3) =D(I, 4) AL 5164 
69 Contr NGE aL 1105 ST (1,8) =D (I ,8) BL 1165 
_ F3(L) = 1012023 AL 1106 D(T,&)=CSQRT (2. 0D0*GARAAOPL, ¢ (GAMBA-1.0D0) ©D (I 45)) ©¢( (1.0D008P PF) aL 1166 
90 CONTING? SL 1107 Vs (RE sER ODEQC) ) 04 ( (GANBA-1.0£0) /GaRMA} -1.006) } BL 1167 
Coos COMFOTE DERIVATIVE CF STAaGuATICN PRESSURE AT (T1A5-LASBDA) AL 1108 Ceee CORBECT PITCH ANGLE ABD ANGIE OF ATTACK POR IMSTRUREET LOCATION aL 166 
EDU= (PS (K)-PS (1))/TD aL 1109 AF (3033.GT.1) GO TO 97 aL 11369 
O80 92 L=1,K AL 1110 _ 940.2) =0 01,2) ¢Pccc aL 4170 
- '3D0220.000 BL itt DT, 6) =0(1, 6) ~DATAB (KACG°D (1,3) /D (1,4) } aL 197% 
DO 90 O=1,8PS aL 2812 Ceee CALIEBATE ANGLE OF ATTACK BL 1172 
BD2eED2 02S MCRL /TIS (~A (He 1) SDSL NM (2°N9PL® (TINK (L)- ALN (1) ) TT) 0B (HOH) aL 8173 IP (CALO.£9.0.0D0) CAL™ 121. ODO aL 1173 
VOOCCS (29MOP TS (TIME (L)-KLB(1))/TE)) AL 114 D(I,6) =CALP 190 (1,6) *CALP2 BL 1178 
91 CONTI NOR SL 2115 $7 CONZINOEZ oh ae tees er | a & PD.) 
PSB ¢Lp=3D1¢202 aL tite Ceooe CHECK FOR IMITIAL PRINTOUT aL 01976 
92 CCOUTIRUE BL 1197 KP (3J35.GT.1) GO TC 116 @L 1977 
Cees COMPUTE POLLY LaG-CORBECTRD STAGMATION PRESSURE aL 4316 Ceose WRITE BESOLTS Im COMPATIBLE UNITS au 1178 
‘BO $3 L=1,K tae He ~~ “Sb 10019 TP (@UT8IC. 42.0) GO To 109 aE 1179 
— PS (1) =P 31) eta (1) eeSD CL) ' OL 1920 Ceee BRITE RESULTS IM EWGLISH ONITS aL 1160 
IF (1.20.6) PS(L)=PS (L-1) ” ML 4121 WRITE (IURITE, 98) OL itet 
93 CONTERDE 7 SL 1122 98 PoRnAT (13 5//,31E,68(°%*) 57,310, °S* 66%, °0%,/, 304, %0* 62, SIECOUVED aL 1182 
BPI=BHOCTSL/ PSL ¥ aL 1923 WSICH OF IMKTIAL FLIGHT DATA 10 COMPATIBLE UNITS, 72, °O* 7, 312, °O* 56 BE 1183 
OPQC=-2000. 000 ee ee ae aL 3128 VOR 00a 12 H1E 68 (98) 6/6, VZ1C9 84) 4 /,6K 5994, 19K, 94", 19099)", 192, 94 ai 1188 
MPTSOt=HPIS-1 BL 1925 Oo 09K 18 19K EOE O87 6K, 80? UX, 1ONDATA BOINT, SK, °4°, 72, 48UTI BL 1965 
Cese SELINE FIT POSITION ERROR CORBECTION BATIO DP/QC* wkTH SRSPRCT TO aL 1126 - WHE, OR, * §°,63, 68UZIGHT,72,°)°, 3%, 01NPITCH ANGLE,52,°{* GX, 10HPITCH BL 1196 oe) ©} 
Coee IBOICATED AIRSPEED ee ee Ra a OO eee VAATE/SH,°)* (SI, GHATBSFEED,62,°9*,/,6%,°9*, 19%, °4* 61, 6H (SECS), 7E,° ®L $187 ky bo 
| COLL SPLIME (KPTS, OPOCP,VE,aa) aL. 1126 Vote TEOSB(LBE) ,72,°)*, 01,98 (BADIAMS) ,6%,°4", 3X, 124(BADIAM/SEC) J44,8 BL 1188 fd 
Coes CALCULATE TMDICATED AIRSPREL aL 2129 T)8 SKM (FT/SEC) 615998 4/655 °99, 59,856, 19L," 4” IE 4% 19K 9 fC Lt aL 1189 by GD 
; DO $7 I=1,K SL 1130 192,°)*, 192,088 of g6U g*O*, 319 {4-09 , tae) SL 1190 
Ceee PRE AEASORED INCICATED AIRSPEED IS USED In CONJUSCTION WITH THE aL 4131 DO ICO I=1,k aL 1191 © 2 
Coos LCBOICATED PCSITION~ERROS-COBRRECTIOM AIRSPBED TO FIND DPOEC AL 1132 BRLTE (IGRITE,99) I TIME (LK) , (D4 ,d),I=1, 4) aL 1492 © 
VIREZASPD (1) BL 1133 99 Fonsat COE, 08 FE LI, IK, t* ENP. 3,6K5 9h" 5K oF 03,5X 5" 4", IE, PU407 aL 1193 a) i 
| Ceee TETERPOLATZ FOR APPIXYCATICH CF CORRECTION RATIO ak 1134 1,535.99 BEQFIO.7,5E 949, 5K, FB. 4, 6X, °8") aL 119% rt 
IF (VIND.LT. VE (1) ) DPOC=DPOCE (1) BL 3135 ; 100 CouTisuE aL 2295 
TE (VINO.GT. vz (MPTS)) DPQC=DEGCP (APTS) BL 1136 WOITe (IvaITE, 101) | aL 1196 & —) 
IP (DPQC. EQ. OPCCP (1). OR. DECC. BO. DPOCP(APTS)) GO TO 96 BL 0137 109 PoRuat (60,709, 119K 998 o/GE,V2E (9S), 7,6K, 59" 190,29", 19K, 80%. 19K SL 1497 Cc 
DG $4 J=1,aPTSAt aL 1438 Vo bo, 19K, 849, 197,98*, 19K, 88,7 oe, 808 4E. 1OuDATA POINT, 5X,*§*%,7K,% ML 1198 b> > 
EP (VE (J) LE. VISD.ABD.VE(J¢1).GT.¥iND) GO TO 95 aL. 1939 WATIBE 83, °5*, 5X, THDEWSETY,72,°$*, 2%, 15HANGLE OP ATTACK, 2E,"°§°,8Z,1 ML 1199 G2 
9% CONTINUE | aL 1140 VOATEBEEBATONE, O2,° 5°, 32, 42HECNG. ACCEL. .8X,°**, 7 ,64,°°*,19%,°)°, GE BE 1200 s Eg 
. . eS, 
sepa 
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a en qsecs), a 4k, 128 GanuG veces’) up" 4* <0, Su GADLANS) .64-74".8 
Ui, TH(DEG~B) 462,94 (AK, VIM (PT/SECOSZ) , 4K "084/44 F049 IES 18s 19K St 
Wt°. 392, we, W9E," tte et Eel i la ee fet) 


po 103 I=4,8 


) URTTE (IURTTE, 102) 1 TESE (LD, (DC de De 5,8) 
102 FORMAT (6K, °°", 72,13, 9R,° 4" 6h eP 7.3, Eke" h* 4h, E1008 g5T, 91 UK, PV. 
17, 4,1 *, 4X, F922, 6x the 4Xk, F9.5 6X,°9*) 


903 COomeTMDE 


“105 POBAAT (6X, °9* 19K, 


- vi Tabbeg pete 


C#ee 


. 992 POBRAT (6E,°9', 


- Vda PORNAT (61,08 


2m 3 
' 4, secwssat oe 


FCS EB RGU Mp cet args pte 


WRITE (J¥AITE, 104) 


ACR PORHAT (6X, 48, 179K, 9°", 7,60, 822 (98%) 


WRITE (JERITE, 105} 
Rt) eee eR eee OL) ot Re LT hee A) dee Beds 
—U, VOMECATA POINT, 5X, 4 4 FE, MHTIBE, BX,* 3°, 5K, SHALTITUDE, 6K 4°49, 30,020 
WERT. ACCEL. ,44,°4°, 20, WHHELEV. OBFLECT., 30,99", /gdl, 99, 19K,°h* 6 
UM GH GSECS) , 7U,° 2", 64, 6H (FEET) 74,959, 4%, VIN (PT /S 2C#O2) 44,949, HKD 

VH(RALCEANS) , 60,799 /6N, 969, 19K, fp BI pt Ah ft BIEL I it, 19K,°8* 
Veg EE, 89%, 99 (9 *), 74%) . 

DO 1067 I=1,K 

WRITE (JNRITE, 106) 1, TIME (I), (D{L,0) -J=9,02) 


906 PORRAT (6X, °°, 72,03,9% 0% 4" s6X,07.3,6K,°§*, Uke #103, 50541" 4X 6F9.5 


1e6N 594 4X, PS.5,6%,°*8) 
1€7 CONTINUE 

WRITE (WRITE, 108) 
108 Fosnit (6K, °°", 9X, "9%, 
V9») 
GO 10 116 
WRITE RESULIS Im SI URITS 
109 WRITE (JBBITE, 110) 


NOK STH VILLE DIESE 19,8885 /, 6K, 101 ("9 


990. FOBRAT (14,777,318 686985) o/ eT tt*, 66x, 98057; 308, ° ,6e SIHCONVER 


ISIC CY INLIFAL FLIGHT DATA TO COMPATIBLE UNLTS, 7K,°%*,/, 31K, °** ,t 
160, °O*, 7, 310,68 (99?) / GE UTES") SENG OY 19K, hohe ho A9KS 8 
Ug BINS Gt TIE he AFK SO gf EL ,4 0? UX, WGUDATA POINT, SX, *1", 1, 4ATL 
WHE, O4,*§* 6%, GRHLIGHT, 7h *, 3X, VIHPITCH ANGLE o5¥o° 5% 08K, 1ORPTICH 
WATE, SX, * 4°, 5X, GHALFSERED, 64 ,°O*,/,6K,°%*, 19K,°3*, OK, 6H (SECS) ,7K,° 
14°, 5H¢9H (MEWTCRS) ,53,°(°, 4X, 9H (RADIANS) 64," 4" 34, 1ZH(RADIAN/SEC), 
WHE 84%, 61, TA(M/SEC) 6K 5 9O eye 6e 808, 19K, 8] HS T9K, Ey 19K OEY ISK, 
W9,19R 899 19K, 898,768,898, 119 (8-8) 8H) 
WS=C I, 1) 4.448200 
- W5=0 (1,4) °9.300800 | | 
WRITE (IWAITE,99) I,TINE(I) ,WS,Dil, 2) ,D(L,3) VS 
439 CCUTKMOE 
WRITE (IWRITE, 142) 
119K 09048, 7, EN, VZ1C8 88) f/f 6K ,9O* TIKI, 194,59°,09% 
Ve Et USE, §° 191, 4%, 19K, 99", /,60,°°*, 4X, ICHDATA POruT, 5K,*4* Pal oe 
- WHPISE, OF, 99°, 5K, VHDEUSITY, 72,95, 2K, USHAWGLE OF ATTACK, 2K,°4*%,4X,1 
VIATEMPEFAIUBRE, UX,°¢°, 3X, 12HECHG. ACCEL. 42," 6" 5/,6K,°*" ,19K5"]", 6x 
VGH (SECS) 73," E* 4K, 9H (KG/H993) 64,95", 5k, 9H (RADIAWS) .5X,°1", 6X, 7H 
Venee- Ry 625°)", 41, 1OH(H/SECS*2) ,5K,*8*,/,6K,'*", 19K,94 919K S 81%, 19 
ae ek) One eee) ne bere?) Phe hee a) Oe eee eke Pe | 
pO:113 1=1,K 
DS=0 (1, 5} #595. 3860 
_ 85=D aT, 8) 00. 3048D0 
 -$R=50 (1, 7) 00. 655555600 
903 WETIB (UWRITE, 102) I, TIBE(1),0S, DOs 6) ¢ TK,AS 
ss WRITE (IWBITE, 104) 
MBETE (OWRITE, 114) 
PLP Pee eet ke bee) Pee ee) ee ee) 
@y* PE, GHIINE, OX,*4°, 5K, GHALTITUDE,6%,°9°,3%,120 


. ft, WOHDATA POINT,5%, 
DEFLECT. , IX,°*, /, G4, °*", 19K, 85 °,6 


«WEST. ACCEL. ,42X,°4", 2%, S4HELEV. 


0 gta ne. desta ot : steer a wH S Pe ial sapiens kai ers act pewter paws 


. 8b 
$00, /, 65 ,°S* an 
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AL 
aL 
aL 
aL 
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aL 
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SL 
BL 
BL 
AL 
aL 


. aL 


SL 
aL 


“BL 


aL 


AL. 


AL 
SL 
SL 
aL 
AL 


AL 


AL 


SL. 


aL 


SL 
aL 
AL 


1201 


12020 


%203 


120% 
1205 
1206 
1207 
2208 
1209 
1210 


Vail 


92.12 
1243 
1214 
1215 
1216 
1217 
1214 
3219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 


1227 


1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
4237 
1238 
4239 
1240 
1243 


4242 . 
t2e3 


1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 


1253 


1254 
4255 


1256 


1257 
4256 
1259 
1260 
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11, SH (SECS), 78,4)" 958, 8H (METERS) 062," 4° gy 30M (M/SECOO2) E54" 00k ab 





4261 BS 
1262. 


1263 
1264 
1265 
1266 
1267 
1268 
31269 
1270 
1271 
1272 


9273 


1278 


1275 - 


1276 
1277 
1278 


3279 


1280 
261 


12862 


1263 
1286 
1235 
1286 
1287 
1298 


A ot af ae ab et ot nf ob et et : : an 
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194 (GACIANS) 65, °°, 7,6K,°** 89K ,°9*, VOR Ns 19 he Tb BIKA INKL S® ab 
WF e GEO? 99 2-89, 1O% . aL 
pC 43S F=1,K , aL 
WSC 41,9) 99.3088D0 os : OL 
VAS=C (I, 10) 40. 30¥an0. aL 
| WETIE COWRITE, 106) 1, TIME (1) HS, ¥aS,D(1, Wy AL 
+18: CoaT IED: | oe names ae 
. WRITE (JURITE, 108) mp, > 'y a4 aL 
_ Cee Bwmacl FOURTER AMALYSIS AMD PILTBRAIUG eourTine . Eid Seas aL 
~¥916 CALL SEC2(K,33J3, N08, LSP, ITEST,S) at 
807 LP CLERG.NE.G) GBITE (JURITE, 118) @L 
WUS FORNAT (12,////,15X,* USER ERRORESOCCONSULT USER Lustauctrosseseta: re | 4 
VERT CATA S21, IE ANY’, ////} aL 
IF ¢UERS.¥E.O.OR. ITEST.WE.0) GO TO 120 - OL 
419 CONTINUE SL 
920 Kd=KJ01 aL 
C8@® CHECK PCR PRESENCE CF ADDITIONAL DATS SETS : aL 
«EP (¢K0-1). EQ. SETS) GO TO § SL 
|. 3S (KILLE.NSETS) GO TO 3 AL 
Ceee. TEERIBATE PHOGBAR Execution a : aL 
WZ0 UBITE (IMRITE, 122) aL 
—=*922 POSMAT (13,7///, 15X,56HINPUY PARAMETER WSETS IS Puowaaty SPRCIPLED at 
< ¥ ENCCERECTLY. ,////) . al 
_ C®C® PERMEMATE PLOT ROUTINES en |? 
423 IP (JPLCT.NE.O) C2iL EICSIZ(0.0,0.0) be ada ig 
SToP ee ee | 5 
eu . eo ee oe 
‘SuRsGUTINE SEC2(K, Je, NOH, LSE, TIES, 5) : . $2 
Cc $2 
Cese SORQOUTINE SEC2 IS a SOBROUTINE THAT euaropas Poustes. AWALYSIS aws s2 
cree: SEIESET® 19 BARE THE CATA ACRE COMPATIBLE $2 
‘ , $2 
" Waphuctt peaLesqa-a,o-2) "0 a wer oo 
DIMEUSICH TRG (2%), TR (6) DY (450) DX (450) , 80 (450), F2(450) ,D¥( S50), HD $2 
14850) 9H (850) ,TPS(VN , TPAC (9) oT PCH) . BC (11) SS (450,11) LSP (9) TST (@ S2 
$2 
CCASONM TITLE(20) ,0¢450, 11), TEME (450), (100),8 (106), F1 (450), F2 (950) $2 
9,83 ¢950),P8 (450), FS (450) ,P6 (450) ,P7 (450) , FB (450) ,T2,RHO,PI.G G,JKS,8 S2 
WeTRIC, JSEAD, OURITE, PUNCH, LEBR $2 
CCAACH. /CABRE/E11 (650) . P72 (450) $2 
COMACH /TENE1/S17 (4950, 4} , PAR (6) PSL,TSL, IeaR S2 
CCAROM /TENE2Z/FS (45C) P10 (450) , P13 (4850) ,F14 (450) AP (6) (6) $2 
CCRROM /RBCH/IRS (10,6) S2 
PATA TREs.9DC,5.000, 10.0D0, 1£.0D6, 20.000,25.0DG, 30.000, 35.0D0,40.6 S2 
; 1DO,45.000,50.000,55. ‘ono, 60.000 ,65.000, 70.000, 75.000,89.0D0,85.0D0, S2 
nS 190. 1 CEO 95: ODO, 1G 0D6,,4S/157,81/3/ $2 
c. $2 
c S2 
c $2 
ceee CHECK OR BYPASS S2 
,  AP (PR. GT.1p GO TO 10 ; acta Bh gh —$§2 
co: te , . $2 
c. ' Dy $2 
pear {JBEAD,V) (IESEL),I=U,Up 7 52 
“FV PORFAT (1151) : $2 
c at ante S2 
Raat 5 Baise} Peewee: i peeerteed $e! Ao we Co peseenc pet oe plete 
fetsmrserser: 8 erie: Berner Sins Stans tharos: nen beam, 
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“PERE (JBEAD,2) (LERC (I) oT*¥49) oAAXSPACT ACL, DEES 
2 POmRAT. (9EV,1E, 8515.0) oa a 


“cuEcn FCR TWEUT ERBCR | 
Jp CLERC (1) E.G. ANE. 1PBC (2).-B0-2) GO TO 04 


 peac (ameaD,3) (re qT) Tet, 14) 


FORMAT (4421) 


Qeat (JHEAD,4) (NC{I) 124,11) 
popeat (1115) 


ReAC (JREAD,5) {ae (1) WET) 1=3-6, 
FORMAT (2020.0) 


wunx=nun-1 
KFq(sUSxX.£0.0) NUMK=1 
po & J=1,8U8% 
BEAC (JREAD, 5) 
Froarat (611) 


(tR (1) -T=1,6) 


DO 7 JI=1,6 
IRS 43,34) =1H (34) Lgl, Be 
CONTINUE a se 
CHECK PCM ZERO CS WEAS-ZERO 2 C@LORE VALUE Ant 


bc S 1=1,6 he Ty 


TP (DABS(AC (I) ) LT. 1600-10) AE (1) 29. 00-10 


Cees 
10 
Cees 
Cees 
Cees 
Cees 
Cees 

| cess 
Cove 
(ceee 


cose 


ceee 


gp 


CONTINUE a: 
ACIUST TO ODD MOMBER CF PCINIS 
IE ¢¢tK/2) %2)- EBC. K) KE K-1 

Ki=K 

TI=TIAE (Kp TEBE (3) 

DEFINE NEW ARRAYS 

pe. 14 1=1,K 

DEFIWE WEIGHT 

e1¢1p=D il. 1) 

DEFINE ELTCH ANGLE 

¥2¢1p=0 11,2) 

DEFINE PLTCH RATE 

£3 (1)=D 11,3) 

DEFINE AIRSPEEC 

ea ¢1)=010,4) 

DEFINE CEMSITY 

BS (1) =D 41,5) 

DEFINE ANGLE OF ATTACK 

#6 (1) =D{T,6) 

DEFINE TEMPERATURE 

£7 (1) =D (E.7) 

DEFLRE [ORGITUDENAL ACCELERATICH 
FQ (1) =£ (1,9) et 
AK(L)=D 41,8) 

DEPERE ALTITUDE 

PIC (1)=0(1,9) 
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jee 
5 
36. 


37° 


368 | 
33. 
ad 
re | 
NZ 
y3 
ay 
“5 


a7 
“8 
49 
$0 
51 
52 
33 
54 
55 


5? 
58 
59 
60 
$1 
62 
63 
64 
65 
66 
67 
68 
69 
1G 
71 
72 
33 
rr} 
45 
16 
47 
36 
rh) 
80 
at 
ad 
33 
64 


86 


a7 


88 
a9 
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cose 


Cees 


"1 
Cees 
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cese 


Cees 


COee 


Ceee 


1% 
15 
1é 
W7 
18 
19 
20 
21 
22 
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TUITLALIzZE ALTITUDE BATE 
‘witerpaC.000° - CEM REA, yy acest 

CERINE VERTICAL ACCELERATION 

#13 (1) 20 (1, 10) ; ae ae 
DEP INE ELEVATOR (OR STABILAICR) DEPLECTION -~ 
FUQqI) =D, 11) 
CONTINGE 

SICKE INITIAL DATA FOR ELCTTING 

rf (IFRC(S) .NE.0.OR PUES 1) GO 70 13 

po 42 I=1,f 

po 12 J=1,131 

$8 (2,5) =D tl ,d) 

CHECK FCR OVERALL EFCURIER SEBIES AMALYSI 

IP (TERC{4) .KE.0) GO 10 92 
COMEUTE TEIHIKATION HABAONICS 

at=¢39NC (4) 72 

H2= (3OMC (2p) 72 

63= (99NC (3) ) 72 

Au= qJenc (4) ) 72 

MS5=¢399NC(5)) 72 

HE= (PONC (6) 72 SR a a ee a sae cS 
MP= (IONC (7) 972 rl 

RO=.¢3¢NC (8) ) 72 ie 

ND=E399NC(9) 72 

MIG= ¢denc (IC) ) 72 

Mbis (senc (dy) 7z 

CHECK ECR LHCORRECT INPUT 


TE CAL{TFS¢ 1) « EQ 0. AND.A1.LE.G) OW. ( (LPS (2) -Eu=6 BD. B2~LE.0) 98. ( 52 


ULEPS (3) EC. 9. ANE. B39. 1E.0})) C8. CLUTES (4) Bu. 0. 48D 88. 


15) -€6-0 .AND.N5.LE.0)) Ob. (ATES (6) BQ. 0. AMD. 80. Li.0) OR (IPS (7) - BO. $2 
1O.AUELRT.LE 10) ))) ORs €C{ (1ES (6) 060.0. 80D. 88.L5.6) 08. (IPS (9) - FQ. 0. $2 
JAMD.BS.LE.9)) CB. ((IPS{10). 0.0. AND. VG. LEO) - OM» (LES (11) -BQ.0-A80 s2 


ToMU102E.0)))}) GO TO $26 

COMEUTE DEVIATICNS FOR TINE HISTORIES 

TO= TINE (KP-TISE (1) 

be 23 r=1,K 

{M=TIME (1) TINE (1) 

IB {1FS(t).NE.G) GO TO 1% 

PUITP=D IL, 1) — ED ET, 1) 4 (DEK, VP D ET, 1) ) /TO PTL) 

‘EB EYES (2).NE.0} GO TC 15 

2 (1)=0 (1,2) - (D162) + (D (Ke 2) ~D (442) )/TDOTL) 

IF (LES (3).8E.0) GC TC 16 

FRCPC (1, 3) — (DV. 3) + CD UK, 3) D (1, 33) /TO STS) 

IE qLFS (0}-NE.9} GC TC 17 

Ea (1) =D (Tr, 49~ (0 4) 6 (DER, 4) ~D (EM) STO STE) 

IF @IFS({5).8E.0) GO TO 18 

PS (IP =D (ES) (5 41,5) ¢ CCK, 5) OKT, 5) /TOOTHS 

EE (IFS (6).8E.0) GO TO 19 

PGE II} =D (1,6) — (0 (1.6) * (DAK, 6)~D( 1,6) ) /TOOTK) 

1® (IFS (7). NE.9) GO TO 26 

PI CTPH=D (TL, 7)- (CEU. 7) e UD RST) DCT, TP) /TOOTK) 

LE (IES ¢9}.NE.0) GO TC 21 

B10 42) =DU1, 9) — (DC 1,9) 8 (DK, SP“ DCH, 9) | /TDOT EI 

IE (HFS (10) .NE.0} GC TC 22 

EVIALPHC ET, 10) (DCT, 10) # (DK, 10) -D (4, 10)) STOP TN 
T2 (IES ¢11).RE.C) GC TO 23 

EVM (1)=E (Te 21) - (DEV, 11) e (DEK, VU DCT, UUp) TOT a) 
CCHTIBNUE 

I¥ (LES (1p. KE.0) GO TO 26 

PERECKS FOURIER ANALYSIS ON WEIGHT TINE HISTORY 
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s2. 91 
§2. 33. > 
$2 9b 
$2 $5 
s2 96 
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s2 936 
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$2 100 
oH _ Sé. 208 
e $2 102 
: $2 103. 
s2 108 
s2 105 
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2 s2 110 
s2 101 
$2. 142 
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52 4 
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18. 
a9 
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21 
S2 #22 
$2 13423 
$2 24 
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S2 138 
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sé 136 
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S2 746 
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Cees COMPUTE FOUSIER SERIES conrricients. et ty ete 7 ry en |) ee ES EATGSMidsas cen ertermay sen seqncosis ae ce-nerrerine a s2 2it 
Sep ele Call EAEAF (EU, H,MIPT, NC CUD) | ks m a + ; ” $2. 152 aes ie wstt Si aca eae “$2- 292 -- 
-  C@eee BEGEMERATE WEIGHT TINE: @ISTCey. (snoorueo) by ee oo $2 153 rc _ » 33 Contiavue ; $2 213 
RI . i a ne $2. 188 38 PS(Lp=K1ex2623 s2 28 
0G 25 L=1,K . ao — sz 195 — 4e ¢1E8C (1) .2.C) Go to 37 . $2 215 
TA=TIAE (L)-TISE (1) see ce ee} Coss CONEUIZ ACCELERATION corarvarive OF ALBSPEKD) TIA MISTORE $2 26 
- £€2=801, ee ale ie Wp /TLeTs e 8 eee wie $2 157 -. SEAS GL QR, 89-001, 4)) TD $2 217. 
.B3=C.000 ae oa aa $2 158. : pe 36 L=1,K Vs 32. 298 
pC 24 W=2,81P1 - $2 159 . — -  - ¥P2*0.060 . . S2 209 
a7 a -fbon tn SEOs (20 (N= SPLOTERE(L) /49) ©B4H) OUSEE (ee (H-1) OPLORIAE $2 160 PO 3S B=1,84 : . a $2 220 
- Wwstts ean 32 11. 402=2D2¢2¢N¢PI/1T* (- ~h (We1) COSEM (ZOMOPLOTINE(L) /TT) OB (Me 1) SDCOS (208 SZ 2at 
2m CCBOTIUOE : 32 162 > $OPEOTIAE (L)/TT)) S2 222 
gS. PUL) =E Vek2en3 $2 163 35 CONTINUE $2 223 
36 AP (EPS (2).8E.0) GO TC 29 : . S2 tee | - 36 POL) =XCT¢XD2 . S2 224% 
cee, PEAECHN POURIER ANALYSIS O8 PITCH ‘AUGLE ‘Tine 41s toat ed $2 165 cece CHECK FOR ACCELERATION-“INPOT-OPTLON COMPATIBILITY $2 225 
pa MZEt=Ah2¢1 . $2 166 37 LP IPS (4). 62.0. RND.IPRC (1) .2Q.0) TPAC (1) =1 $2 226 
. cose COMEUTE FOURIER SERIES COEFFICIENTS a eee | ee EP (TPS (5).82.0) GO TC 40 $2 227 
“CALE EABAP(®Z,K,92F 1, NC 25) . $2 168 Cees PERFCRN FOURI®S AVALYSIS OB DEUSITY TIME WISTORE ge 228 
(Ceoee BEGEBERATE PITCH ANGLE TEBE HISTORY. (SBOOTHED) nak - $2. 169 © aset=ase1 . $2 229 
Kt=a(4 $2. 970 Ceee COMNEUTE POURIER SERIZS CORPPICIESTS ~~ - $2 230 
pce 2@ L=1,8 $2. 171 CALL FASAP(25,K,"5P1,8C{5)) “$2 231 
TR=TIME CL) -TINE{t) . é oh oh ea ee. Ae Ceee REGENERATE DCEMSITY TIME HISTCRE (SHSGOTHED) . S2 232 
B25 Et, 2) © COUR, 29-0 49,2)) /TE OTE oe uae $2 173. -  wteaiy $2 233 ; 
 g3=¢.0b0 s2 178 DG 35 L=1,K oo, 32 238 
DO 27 We2,N2E1 _ oo SR IS _ X= TIME (L} -TINE(1) a eee . $2 235 
X3=RI0A (NPOECOS (2° (h- ~ sprerime (uy /£0) + (u) este 22 (4 Mp oetOTTAR(L 52176 - B2=Dq1,S)*(CUK, 5) -D (4,5) /EESTE a ee —  .  $2. 236 
W7Ttp De ca oS. HTD, —  83=0.006 | : z $2 237 
| 27 COMTINDE $2. 178 DC 38 H=2,A85F1 $2 236 
26 P2qLp=N VeK29%3 $2. 179 BaeBaen a] eocos (Ze (0-1) ePLenTME(L /FT) omQny oDSin (26(0-1 eT TTANL $2 239 
29 £P (IFS(3).0E.0) GO TC 32 S2 1380 4p 7tt) $2 2486 
Cese PEBECAR FOUBLER ANALYSIS O8 PITCH RATE TIM& HISTORY j $2 181 38 CCHIINDE . PP SS ES RI Pe ee Seg eee 
oo MDE TEAZOT . S2 182 «9S BS (Lp aK Uek2¢x3 : $2 282. 
Cee CONEUTE FOURIER SERIES COLPPICIZENTS Ho S20 183° aC EP QIPS(6).8E.0) GO TO 45 . $2 283 
CALE FARAP(F3,8,83P 1, MC (3)) se $2 188 Coee PERFORR FOUBTZR AMALYSIS OW ANMGLE-OP-ATTACK TISE HISTORY $2 264 
Cees BEGEWERATE BLICH BATE TIME HISTORY (SHOOTHED) as ie S2. 185 EE 1SN6 01 s2 245 
K1=2 (1) . $2. 186 Ceee CCHEUTE POURTER SERIES CORPPICIEUTS .  . $2 2a6 
DG 31 L=1,K S2 187 © oc: CALE EARAP(FE,K,86P 1, 0C (6) } . - $2 247 
- TR=TIME (L}- TINE (1) - $2 108 Ceo REGESERATE ANGLE-OP-ATTACK TINE BEISTORE (SOOTHER 2 $2 248 
H2=D 41,3) (DK, 3) -O(9,3)) TESTS . $2 189 : ata (1) , a Ye  g2 289 
. £3=¢.0£0 ; er a, 52. 490 - pO 42 L=1,8 ' $2 250 
| 90.30 W=2,N3F1 ea ae S2 1t9t -  PESTEME (L)-TIBE (1) , $2 2SN 
eee A TastaCOs ae caw oprenzmn uy 778) cm #0510 (20 (H- wyeerenined. 52 192 BE Qae (1,6) 4 (0 4K,6)-D 11, a “$2 252. 
Dstt) (oo! 6S 993 ; . 4B32C.0D6 . 3 $2 253 
30 CCHITBUE a 52 194 - pO &t B=2,N6E1 oe - $2 258 
34 FIELP HK VeR2eR3 ; $2 195 ie 13203¢R (B}SECOS (2# (H- 1) SPLOTINE(L) /7E) ¢B(U) ODSIN (20 (U1) OPLOTIAR(L 94 255 
(Cees. IUTEGBATE PLICH RATE TO OBTAIN PITCH ANGLE, IF DESIRED S2 196 WM sTt? ‘$2 256 
oP QEPRC (7) .WE.O} CALL TRAP (K, TIME, £3, £2, Pa0) $2 1986 ‘82 PG {Lp =U 10020X3 . vis ; $2 258 
- ". - 32 18 (TES (4). 8E.0) GO To 37 | Sz 499 IP qIeRc G3) .WE.0) GC TO 4&5 ae Me $2 259 
Cees PERFCAN POURTER AWALYSIS OM AJESPEED TIAE WIStOaY ~ $2. 200 Ceee CCMEUTE ANGLE-OF-sTTACK RATE TIBE WIESTORT 5. $2 260 
es QQ kteneet $2. 201 BG Gs CD (8,6) -D11,6)) /TD aoe S2 261 
-Ceee  CCNEOTE FOURIE® SERIES COERFPICIENTS . $2 202 00 48 L=1,K ere) ee | yee 
(CALE PARAP (PG, K,BYPT,8C (4) ) . S2. (203 | ¥D2=0.000 = a $2 263 
_ Cece PEGEWERATE AIRSPERD TINE BISTORY (SMOOTHED) © = PP Oe Ss2 208 | 90 &3 B=1,56 aa. . $2 268 
ota) . ns $2 205. 2 /WD2=402¢29u OPI/TT® (-A (UOT) ODSIM (Z#NOPLOTINE(L) /TT #8 (ued) CDCOS (20H SZ 265 oie 
BO 38 £21,K 82 206 ag OPT OTIME{L) /TT) } a. - $2 266 
TE=TINE (L)-TIME (1) aes $2 207. 3 COuTINGE Do 2 267 
BASE (4, 8) OCD he SE-B UTNE /EOOTE 5. $2 208 oe PS(L)P EC TD2 $2 268 
1% “¥3*C.0D0 an $2 209 ERP (IFS (6). 20.0. amd. EPRC (3) 229.0) GO TO 87 S2 269 
ve sa green : ‘ ra t jaca fee vray 4 BEN eg qe, ; geese: eS erent op ores é 
t ; Cee tga the aca d ; ie : : Saar epee. Se aaa DA Moet Bice te ees 


ieee eet og tithe! preva 37 
H 


fhe cern a ae pment ree ERAS A RGU RL OIE SE RE ein PS Ee re ae Te Peer e nn a eae oe han eR 





coz 
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= Coes 


Hem eee ok Recent = AE Neteette ey oS be ee omar 
ee pe mee ae eee 


ites ME BATT _ 
Sian ae, Lae ee ee rere Rie tregeae é “Bey 


4S Epa (3p=1 
EF (LPS (6).02.0) WRITE (IWRITE, 46) 


46 FOGHAT (11,////(15E ,9CHWAREING —> ANGLE-OF-aTT ACK Bat 


80 $2 JI=1,8 


5 
8 £096) = (AK (39) ~GeDSEM (B2 (50) ) ¢XAXOF 3 (Jd) #F 3 (J) ) /DCOS (P6 (39) ) +P a, S2 


VOI) # (FS (3.3) -P 3 (95) ) * (DSN (P 6 (34) ) /DCOS (6 (34) ) ) 
52 


$7.00 59 JO=1,K 


CCUVEST LONGITUDINAL ACCELERATION TUTO "COMPATIBLE® ACCELE 


WEE gun Ti: oe Sth ade 


E WAS COmPUTE s2 


+m 


52 
$2 


10 BSING UBSACCTHEC: AMGLE-OP~ ATTACK TINE HISTORY, ////) $2 

CALE ENI(K, FE, TINE, F9 DY, 1,85, WI) 52 

“7 LF (25S (7) .NE.G) GO TO 50 s2 
Ceoee PERFCHM FCUBIZR AMALYSIS CH TEMPERATURE Tlad UIsToORy $2 
M7Pt=n7 61 $2 
Cove COMENTE FOURIER SERIES COEFFICIENTS “S2 
COLE PARAP(E7,K,8721,UC (7)) S2 

Coes. SEGEMERATE TEMEERATURE TIBE HISTORY (SMOOTHAL) $2 
K1=4(1) 32 

DO 49 L=1,K . $2 
TU=TINE (L)-TIME (1)  ~*S2 
E2=0 14,7) + (D(K,7}-D (1,7) p /tO°TK $2. 

_ *¥3=0.0D0 S2 

DC 46 W=2,57P1 a ee $2 

MITT Sta UM) ODCOS (26 (U-1) OPLOTIAE (Ly /TT) 06 (M) ©OS Ie (2* (W~1) oPLOTERE EL S2. 

- . WsTID OS ae | nied tare ae 
48 COBTINUE , $2 
MD PVPS Nn ler2ex3 | $2 
Cos PRRECRA FOUBTER ANALYSIS Cu FONGITUDIMAL ACCELERAT(ON TIne HISTORY $2 
... $0 €12=0 $2 
GO TC $3 $2 
SUEP (TPRC (2) .17.0.08. TPAC (2) .GE.2) GO TO 60 $2 
re | (IPRC (2). BE.O. ANC. TPAC (8). EO) LPRC {1} =6 ho $2 
‘Cees | RATION $2 


2 


52 


. OF 4JI)=0 (00,8) S2 

a D(JJ,8) =a (30) 52 
. $2 CONTENDS S2 
: IF ¢£P8C (8) .WE.0) Go To 53 _ $2 
IP (TeRC(2).£0.1) GO 10 60 ep ea S2 
COMEOTE DEVIATIONS FOR LONGITUDINAL ACCELE@AT1 ON $2 

., $3.DG Se 21,8 bs Gn as? eB $2 
. ) TESTIAE (1) -TIME (1) Se 

. Se PR GI)=D(E,8)- (D (1,6) © (0 (K,8)~0 (1,8) ) /TDeTE) $2 
SSE I=Na ed S2 
Ceoee CONPUIZ FOURIER SERIES COEFFICIENTS S2 
CALL PARAP(FX,K,NBP1, UC (8) ) S2 
COO REGEMERATE ACCELERATION TIBE HISTORY (SHOOTHED) S2 
X1=A (1) S2 

bo 56 L=1,K $2 

| TX= TEBE (L) TINE (1) $2 

E2=0 (1,8) + (0 (K,8)-D(1,8)) /TDeTX S2 
53=C.0pC $2 

BO 55 w=2,8881 32 

eae E 30k (H) *DCOS (26 (U- 1) OPLOTINE (L) /TT} 8 (uy CDS Ie (2% (N-9) OPLOTINE CL 32 

Wytty S2 

55 ComiIuur: S2 

DY (L) =X t9x2023 S2 

EP (LEE.EQ.0) S72 (L,%)=DY (L) S2 

56 CONTINOGE $2 

IF (LLK.M£.0) Go TO 57 $2 

LLr=1 S2 

GO. to 51 S2 
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328 
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329 


TF (1PRC(8) 29.0) GO To 58 
D{JJ,8) =0¥ (39) 
- DY (33) =DY (3.3) 
: GO 10 59). 
$8 0 (33,8) =D¥ (33) 
£9 CONTERDE 
Coes AMGAUGE FOR CORRECT LISTING 
60 XP. (EPRC (2) .EQ.0. ANC. IPSC (1).¥E.0) GO TO 61 
Go 10 63 | 
€1 DC 62 Jd=1,K | in Catt ge ta 
79 (09) =0 405, 8) 
62. D (30,8) =AR (0) 
63 TF (IPNC (1). HE.O. AND. 1PBC (2).2G.2) GO TO 6% 
| GC TC 66 
68 WRITE (3VBETE,65) 
65 FORMAT (13,///,5%,°THE VALUES OF TeRC(1) aud IPRC 


(2) ABZ SOT Compa 


VEIBEE. BETORBING TC MEXT DATA SET, IP AMY." ///) 
IERE*1 | 
—aeTOBE 
66 EP (IFS(9).NE.0) Go TC 71 
Cove PEBFCER FOURIER ANALYSIS OM ALTITUDE TIME HISTORY 
ASP I=NG04 ; 
Cove COREUTE FOURIER SERIES COEPPICIENTS 
CALL PASAP(P10,K,A9E1, 9C (9) ) 
Coe MEGENERATE ALTITODE TINE HISTORY (SHOOTHED) 
E4=0(1) 
DO 68 L=t,« 
TR=TIAE (L)~TINE (1) 
X2=D (1,9) 0 (0(K,9) -D(1,9)) sreerTE 
§3=0.0D0 : | 
DO 6? H22,89F1 ee ee 
“apprap | MMDOECOS (29 (H- 1) OPLOTINE (L) /TE) ©B (mH ODSIN (ze (u-1) OPLOTIOR EL 
_Wstt us” oe 
67 CoutIavE idl 
PIO (Lp =Nter2ex3 
Ceoee ADJUST DENSITY TC BE COMPATIBLE ita ALTITUDE 


TP ATES (5) . WE. 0) PS (1) =8HO* ( 1.000-6. 66D-060F 10 (4) ) #94. 2600 


68 CCNTIMUE 

Ceee COMPUTE DERIVATIVE OF ELTITUDE TINE HISTORY 
ED1= (0 (K,9)-0(1,9)) /TO 

DC 7C L=1,K 

1D3=0.050 

BD2=C.0D0 

DO 69 B=1,89 


OOo eee eee Lid TT (HA tMO1) SESIM(29USPIOTIAE IL) /PI) #6 (He 1) @DCOS (ROB 


VOREOTINE (L) /TT)) 


. 2ebeepe een cea ZTT) 2629 (A (N61) SOCOS (208 OPE OTL NE (1) /72} 08 (U01) SoSTH 


Vq2¢RORT OTINE (L)/11) ) 

69 CCHTINOE 
P22 ¢1)=2D3 

7O EUNCLp=30 texD2 

70 EP (KES13).£C.0) Go To 73 
WRITE (JRELTE, 72) 


72 FORBAT (10, //// 150 ,A6HWARBING ~> ALTITUDE Deal VATIVES uxae CORP 


BUTEL GSING UNSACOTHED ALTITULE TLAR WISTORY, ////). 
Call FMT(K, FO, TINE, F11,P 12,2085, MI) 
73° TP (LPRC {8} .£0.0) Go to 83 
AP (IPRC (8) .GE.2) Gc to a9 
Cees 
LcuT=6 


GSI8G NEWION-RAFASOD RETHCD, FIND COSPATIASLE ANGLE OF ATTACK 


$ 
s2 


S2 


330 
33% 
332 
333 
334% 
335 
336 
337 
338 
339 
340 
3a 
382 


343 


. ae 
“38S 


306 
3a 


30e 
349 
350 


351 
352 


_ 353. 
. 354. 
355 


356 
| 387 
358 
359 
' 360 


361: 
362. 
363 


36% 
365 
366 
367 
‘368 
369 
370 
371 
372 
373 
376 
375 
376 
377 
378 
379 
380 
301 
382 
383 
3846 
385 
386 
3387 
388 
383 





OS rarer i ETE ae tae SOR 5 WOR IC SE ita Ea pee ee 


fase aharche 


EZ 


pe 78 le 

. EtR=0 - 

- ALP=P6 (E> - pao, 
Sriseoinry ayy 


MP2=GeDSQRT (1. ste ti enc sezy tte users zisaort tess ene 


(Wa (1) eDSQRT (1. 000- (E19 ET) /P4 IL) 20% 2)) 
Je ATesItTR +4 
MERE IL)- 101 *DCCS (ALP) -KP2¢ESTH (ALE) *KAK®PS (4) 9F3{L) 
PERSREIODSIR {ALP} -XE2ZEDCOS (ALP) 
 PURE=AZP IFDCCS (ALES ¢EP2Z°DSIEB QALB) 
- BAC (EBE/PENPE) © (EMP/PREE) -2.0069 (Fas FuPP) 
' ALE UsaLP 
EP @BAD.LIT.0.0D0) GO TO 76 
IR (QPNPOEMER) LLT.O.0503 Go TO 75 
-: BLESALBP-PEP/PWPE*DSCRT (GAL) 
- GO 10 77 
. JS ALPCALP-PUP/PUPE-DSCRT (BAC) 
96. BLPSALP-PUPsE Ree 
_  LCut=itcatet . . . 
' GO Tc 76 
77 IP (DABS(ALP1-ALP). LT. t. Ob-15.08.178. 80620) so tO 70 
GQ IC 74 
78 RS CEpzare ph. (Pb Mee SR ee tea: £ 
IP (LCUT.NE.0) WRITE (JURITE,79) LCUT 
‘79 PCOBAT (UE, //, 18K, 10aHes® CORLEG weWTOU-RarHSoN TO FinD CONPAT IBLE 
1 awGLE CF ATTACK, THE ROUTIBE WISHED TO SZEK COMPLEX ROOTS,13, 7H 
1 TISES.,//) 
GC 10 83 
Cese PINS COBPATIES.® DERIVATIVE OF PLIGHT-PATH ANGLE 
$0 50 81 L=1,K 
Of OF (EY = CAE (LP -C7CSTM (F2 QL) ) oZANOP3 (L) OP3 (L) -FS(L) *UCOS (P6 (LP) SCP 4 
WpPOCSIM(P6(L))) 
GO=P2 (1)-F6 (3) 
Ceee YIETEGSATE DERIGALLVE OF FLIGHT-PAfii AWGLE 
. CALL TRAP(K TEAK. D¥,0%,G0) 
Cees COMEUTE ALTITUCE RAT 
DG @2 L=3,K 
E2 ADL) =PAIL: POSL4 IDK (LD) 
. HO=FIOQ1) 
C608 {UTEGRATE ALTITODE RATE 
CARE TRAE (KX -TIAE, HD,H,HO) 
. @3 SP «(rPac(9; 629.8) Ge 10 86 
Ceee FINE An INEAT ZA&L-COMPATIOLE ALTITUDE axD ‘bEwsime 
- BO=P10 (3) Bins 
DO €4 L=1,K 
CALE SECHEL,5, XA) 
Ge DA (L)P ZF SL} 9HS Te (F2 (L)-F6 (E}) 
8 CALL TRAP ER, TIGE,DA,DY, 80) 
- DO @5 L=1,K - 
BY Fag PV0 (L)=PACI OF 10 (23 © PAC2*DE CL} 
OS #5:(L) =RHO® (1.0£6-5. G6D-6eR IC (L)) 94. 2000 
CALL BUL(K, FIO, 7232,F11,F12,2, 4S, NT) sated. tes 
gts 66 FF (IFS (10).NE.0) GC TO 49 
Coes PERFORA FOURIER ABALYSES OM VERTICAL ACCELERATION 
_ es NIGEI=N10e1 
. €8e9e CONEUTE FOURIER SERIES CORFPICIEUTS 
le. CALL BARAP(F13,8,070P1, aC (10)) 
Cees BEGEMERATE VERTICAL ACCELERATION TIME HISTORY (SBOOTHED, 
' ¥t=a et) 


S2 . 
. $2 
_ $2. 
$2. 


$2 
$2 
$2 
$2 


S2 


ga. 
$2 


$2 
32 


$2: 
$2 
$2 


S2 
S2 
$2 


‘$2 


$2 


$2. 


$2 
$2 
$2 
S2 
S2 
$2 
$2 
S2 
S2 
$2 


$2 


S2 


$2. 
$2. 
$2. 


S2 


$2. 
$2. 

$2 
$2 


$2 


$2. 


S2 


S2 
S2 
$2 

- §2- 


$2 
$2 
$2 
S2 


390 
391 
332 
393 


3s0 
395 
396. 


397 
398 
399 


40%. 


#02 
403 
“O04 


05 
406. 


407 


028 
— 809. 
$2. 
$2. 


#10 
wit 
e132 


4.03. 


ate 
#99 


HE 


4%? 


418. 


419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
“429 
420 
%31 
432 
033 
434 
435 
36 
037 
430 


939° 


460 
eat 
442 
43 
usu 
&45 
446 
4a? 
46 
449 


po €8 L=1,K ee” ea ~ a5 fi cage 


TE=92E HE (Ll) -TIAE (8) os a S32 
Z22L 67, 19) ¢ (D(K, 10) -D Et, 40) p/Toets pasa $4 S2. 
— £320.CD0 a ae _ $2 
' OC @7? B=2,51001 . §2 
3=HI0A (H) ©OCOS (26 (u~ 1) OPTOTIAE (L) /7T) © (ay #DSLU (20 (H-1) PTOTINREL 52 
-- Uszty $2 
87 CONTINUE oe ee ee. 9 Ie 
G8 PTLICLP HAIER 2033 $2 
89 BP (IPS (V1). 82.0) GO TO 92 32 
C#es PEREOEA FOURIER ANALYSIS OW BLEVATOR (O08 STABILATOR) DEFLECTION S2 
m BREST DEES S2 
Cees COMEUTE FOURIER SERIES COZFPICIENTS $2 
CALL FARAF (PUG, K,MUIPI, HC (HN) $2 
COse REGEWERATE {ELEVATOS/STABIL2708) DEPLECTION TAAE HISTORY (SROOTRED) $2 
X14 (1) $2 
BO $4 Ls1,K S2 
TXR=TISE (L} -TIAE (3) $2 
K2=C¢1, U1) * (DER, 31) -D 1,19) PsTDOTZ * — = - $2 
436.000 S2 
DO SG W=2,991PE $2 
B3-130A (8) *5COS (20 (w- 1) oPTOREAN CL) /2E) 6B (a) #DSLM (26 (0-1) *PTOPTAE $2 
Wstty $2 
90 Pla (Lp=aterzex3 $2 
Coes USITE TNPUT PABARETERS $2 
92 IF ¢3F.N2.1) GO TO S6 $2 


GRITE (JURLTE, 93) LES (2) RC 19) LP G9) LP (03) APSE 2) UC (2, IP (2), TP $2 
V6) TES (3), NC (3), LE (3) TERS (1) SLPS (4) HC KK) LP (4) LPRC(2) LPS (5) 8 52 
VC (5) TP (5), LFRC (3), TFS (6) WC (6) LP (6) pL PRC G4), TES(7) NC (7) IP (7), 52 
Wac qS),IFS(8),0C (8) , TE (8) ,LEEC (6) , LPS (9), 9CQ9) ,L (9) - TPAC (2) IPSEI S2 


10) ,8C E10), FP (10) , IPSC (8) SUPE (UG)  WCCTI) -IP (UI) ,LPEC (9) -XAL,TO (U2) SQ” 


$3 PCREAT CINV A/S // 42K 4B (8_ 8) fg 42h?) 4, MOL, 8h 8g / 42K, * 1", 10K, 26HSE S2 
IcTiION 2 IMeOT PARANETERS, TOR, Ee /oM 2s * ho MON sft, /oK2E 94" 2h, OF 52 
WSU s* 12, 2k, °RC(=", 13,2%,°IP(1)** 12, 2hq°TP( 13) =*, 12,30, 8h % se %e S2 
W20,°4* 23, "IPS (2)=",12, 2X, °C (2) =",13, 2k,°TP (2) =", 12, 2n,°2P (1a) =" S2 
Pe Ore) Pie Pere vs Pee oe 20° IFS (3) =", 12, 2%, °C (3) =* id, 2K, IP (3) =*, 12 $2 
T,2N,*XBRC (TP =* T2, 2K, be fe A 2K 084 Ky LES (4p =", 12, 2,9 UC (Rpt, 13, $2 
124,518 (4) =" oT 2 2K," LPRC (2) =" koe che be fe 4ek,! 1° ,2%,7 LPS (5) =", 12, 2 S2 
1K, *uc (5) =", 13, 25," 1P(5j=",1Z,2K,*IPRC (3) =" ok 2y 2b eh ef eH2X,%4%e2¥, S2 
ULPS (6) =* 32,20, °NC C6) *9, 13, 2K, 4 TP (6) =", 52,28, "TPRC (UP=*,T2,20,° 4% S2 
Woe M2E,* ho 2, FTES (7) =* 32, 2K, ° UC (7) =*, 53, 2X, ° iP (7) =*,12,2n,°TPRCE 52 
VSD O22 bse M2Ee hg ZU LPS (8) =* 4 T2,2K,° UC(H)=* 13, 2K,*IP (Bp= S2 
4° 12,2, *IPRC (6) =*,12, 245 9h 9 o7e4Zh o*h"y 2h (IES (9) =", £2, 2X,°NC (9p =* S2 
619,28, ° IP (9) =9 12,20, * IP RC C7) Ht, T2,2N eh oA eH 205° 8g 2h et IPS (10R=" S2 

: Lt, 22, °WC (10) =*,12, 2K, *L2 (40) =*,11,2%,*EPRC(8)=",12, het hfe 42E, 52 
MOG AEP IRS (VIP =" TU, 2E FMC HID =*, £2,209 IPGUIp=*, 01,20," TPAC (9) =* $2 
Wn 12 2Ee ht, fp M23, 9h 2, 2he 9 EAH", FU2.8 ON, *IP{1Z)=", 11, 16X,°3",/,36% S2 


PLT hed Phe Bar) ee ee bed Pe) ne ne):) Pe $2 
WRITE (IWRITE, 9%) (1, aP (I}, 1,8 (i) -I*1,65) $2 
Qu PORRAT (36%,°| AP(*,11,") =", 1PD19.12,7K—°M(* 5 1,%) =", 1ED19. 12, ¢ fe 82 
1} S2 
WBITE (JGRITE, 95) $2 
GS PORBAT (36X,°)*,58 ¢*_ "pe*h* .///} 82 
Ceee TEMECRABRILY STOHE VALUES S2 
$6 DO $7 I=1,K $2 
“$57 (1,1)=0 (1,1) $2 

‘EST (1, 2)=F 2 (1) ; Pave Heh siurini Nea Tasty Gita ade aed ee 
TST (1,3)=0(I,2) a : $2 
TST (1,4) #3 (1) WS fe $2 
Biss deg flan At Fes aa oo tiie  SERSES ae Oe ee 
has wun Saas. nay mp ite : oes) eee , gear ; Aaseineneamr® | freee * 


a50 
@50 


@53 
“5% 
a55 
a56 
45? 
«56 
«59 
660 
461 
862 


#63 


465 


466 
867 
468 
469 
470 
att 
872 
ye} 
“7% 
“75 
a6 
“77 
a78 
“79 
480 


‘fat 


482 
483 
&86 
405 
486 
&87 
488 
839 
490 
91 
&I2 
493 
494 
#95 
&96 
497 
498 
499 
500 
$01 
502 
303 
504 
505 
506 
507 
$06 


509 
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£S1.(1,5)2=D (1,3) > ~ a $2 510 U8 SEBEES AMALISIS WITH SPECIFIED KARNORICS, 10K,°o*,/, 31K,** 668," S52 570 
‘TST (1,6) =ST (1, 3) ‘ , ne 4 S2 511 199,79 315,68 (9%) 7, 6E 121 E908) of hE, *O* 49K, 8) 9, 194 ,°5*,19K,°8*, 19 S2 $71 
TSTELFPqPM UI) = $2.52 — . 10,999, 19K, 89%, ISK, 9%, £62, °9*, OX, TOHDATA POIHT, SX, °)* ,-7X,SUTINE,8 S2 572° re 
. BST (1,8) *ST (1, 2) $2. §13 12,° 0%, 68, GHRPIGHT,72,°4*, 3X, VIMERTCH ANGLES, SX, °4*, 42, VOMPITCH RATE S2 $73 
1S7 (1,9) =?6 (1) $2 5St* 165K o°)* /5E, GHAIRSPEED 62,°°*,/,6K5°S", 15K, "4*, 6% pM (SECS). 7K,"4%,? S2 57% 
TST (1, 10) =D (1, 6) $2 515 $8, 5H (EBE) 725°)", 4X, 9K (GADIANS) ,OX,°4", 3X, 12H (RADLAB/SEC) HE, *§*,5 S2. 575 
TST EL, 11) =P9 UT) S2 56 UK OU LET/SEC) gE 559%, 76K, 58, 19K, 95%, 19K, 959,090,944, 19K, 99", 19K,9 52 576 
-€ST (EF, 12) 2ST 1, 1) $2. 517 Bp%, UGK, FO, s, 6X, FOF, 119 GO~ 8) 2 Oey $2 577 
1S2 (1,13) =5T{E,4) S2 518 BO 1C4 I=1,K S2 578 
TST (I, 14) =P 8 (1) $2 519 108 URETE (JWRITE, 105) I, TINE (L) PUL) .P2(L) eP3I(K) pF 4(I) $2 579 
TST (I, 15) =8 43 (1) $2. 520 165 PCaeAT (62,59? TET 39K 48 hg PIe 3,68, 9 §* 5K, F903, 5K" f°, 37,019.07 52 580 
’ TST (1, 16) =P 14 (1) $2 521 1,50 555° OE, FI0.7,5K,9 4°, 52, 78.8, 64, 988) Sz S6t 
f .. .. $7 COMIZROR $2 522 WALTE (IUAITE, 106) S2 582 
 ggag . $2. 523 1€6 POBRAT (6M, 89" TI9K SO! / 61214998) /, ON," 19K, 94", 19K, 84", 99K S2 583 
COoe. PRACT AINISIZATION TECHNIQUE $2 524 Vb 19K, 888, 19K U8, 19K, 808 Fe, fO8 ue, TOUDAIA POLUT, 5,9 9°, 73.4 S2 $08 
COLL SEC3(K,XAX,ISP,ITEST,JE,MUB,DSPS) $2. 525 WITAE, BE, °4°, 5%, THDEWSITY,7%,°4°, 25, 05HAUGLE OF ATTACK, 2X,¢4°, 82,1 S2. 585 
IF (I28G.88.0) RETURE ‘ /° $2. $26 AVHTEMEEEATURE 435°) °, 3%, 12HACCELERATION, 4X,*¢* ./,0%,°°*, 195,°)°, 6K S2 586 
IP (I1EST.29.0) Go 10 99° i. $2 527 1, GH(SECS) ,73,°§*, 3X, 12H(SLUG/PTO*3) ,UX,°)°, 4K, 9H (RADIABS) .63,°¢° 6 S2 587 
(Ceee MEDEPINE PARAMETERS TO PREVIOUS ITERATIONS. |. ...... ..- $2 528 1X, 7H (DEG-B) ,60,°)* HE, 11H (ET/SECOO2) aX, 8 09,7, 04,868, 19%,°3°,19%,* S2 508 
K=KS S2 529 . UP IIT, PT USNS ES, 19K, 9%, WK, OP, 76K, 808, 119 ( 00) , Coe) $2 589 
DO 98 I31,K ar . S2 $30 oc 107 I=1,K $2 5930 
D{I, 1)=TST (I, 1) poe 388 Sob . - $2 $31 107 WRITE (JUBITE, 106) I, TIME (Z) ES (i), PO (1) 7 (i) .P8(I) Sz 591 
P2(1)=TST (I, 2) . 7 $2. 532 WCE FORMAT (62, °°, IK, 0I,Sh eh! EXQ P73, 60,94, 4X, FEO.8,5%,"9]%,4Y, PU. S2 592 
D(%,2)2IST(I,3) Nice & Sterne semcethethate. <2 hot $2 $33 | 19, 0R 18 7K P6626 249, 4E 75.5, 6K, 8 88h S2 593 
— PIL) *TST IT, 4) ie ete ay oe oe ee _  S2- $34 \ WRITE (JURITE, 109) S2 59 
B(2,3)=TST (1,5) ee S — '  S2 535 WD FORMAT (62,54, 1190590? ,/, 63,120 (999)) . . $2 595 
-. O(K, 4) = 1ST (1,6) ae e 4 _ $2. 536 MOTTE {IURITE, 110) S2 596 
Pa(1p*TST(I,7) Hoe Ok a ORS Se $2 $37 UNO FORMAT (6K, °9*, 120,92, 10K, 9G e220, 8h 5, 10K, 44 * 35K, 95%, 13K,9 4%, 14 S2 597 
— DAE ,5)=1S7 (Z,8) op Pe nde g Se oe | OL ee oe $2 538 Veh UO, 16,988, 7, 63559 1K, VOKEATA POLUT, 1X,°)*, 3X WMTIBE,3X,°)°,3¥, S2 598 
#6 (1p =TST IT, 9) a. oe » @ ha Sy, _ $2 539. T2OMANGLE-OF-ATTACK MATZ, IN, °4%, 1X, GHALTITUDE, 1K, 94%, UN, VIHALTETODE 52 599 
— B(E,6)= 157 (1,10) ee: mee 2 SHO . U BATE, VTS f%, 1X, TIHALT. ACCEL. 41K, 94%, UN, N2UVERT. ACCEL, 1N,°4*, 1K S2. 600 
- #9 (1) sTST(I, WW) : . : fos : Fy Ue : &., ea is $2. Sal 1, SORELEYV. DEFLECT. e 1% ,°¢', 7 ,6X,48?, W2K, ‘ t*, 2X, 68 RCS) 22k," ji *,5x,t ‘$2 oat 
 B«L,8)=187 (1,13) om eS S st a Nee . $2. $42 — PAH CEADIAN/SEC) 65E,° 4°, 3X, 4H (PT) 3X, ° 5% 4K, 8H (ET/SEC), X,°1*, I,K S2 602 
PO(I}=TST (LT, 14) 7 eae ee a hs S2 5483 : VUPTs/ SEC OSs) 1X, 949 aX, VI (EI/SECOO2) 1K ,°4? 3X, 9M(RADIAMS) ,SE,°°*, S2 603 
-) WU9(T)=TST (3, 15) oe 8a aS ons _ S2. $44 UGE ree T2E TN OK Ee 22K Fe MOK, by TSK, 8 1* THK, 8h, UU," 4*,1 S2 604 
. - #08 (E)=1ST ET, 16) bo gisre Os. eh ith oo SR HS 16K, 889, 7,60, 808, 419 (8-8) oe) S2 605 
96 COMTINDE ty es W PHEO Gt ny gia he ‘ S2. $46 WRITE (IWALTE, 101) CL TIME(I) 9 (L), 10 (1) P10 (1), P92 (1) 0134) ,F9 S2 606 
$9 TP (SP. WE. MUN. AND. ITEST.EG.0) GOTO 125° °° ~C Re ee ee ee ae) ae 0 ¢0p,1=4,K1) S2 687 
Ceoee CHECK FOR OVERALL PLOT OPTICR eo ee sd $2 5468 VEG FORBAT (6X, 995 UE TUBE, 18 2K P 6.3, 2K 59) 8 SK oP1209,5N5" 4%, WX, P8.2 S2 608 
ER (PRC (S).BE.0}) GC TO 102) EA ake ied gly a S2 549 Vo UR he MEP. 2 UK, 8), 2K, P BL 2, IK 8 Ug FO 2e Why '§* UX, PG.5,42,"6 S2 609 
| Ceee BESET WITH INITIAL DATA cage ak SD SSO is "pO S2 6106 
3) Pe 100 L=1,8 | - anne _ $2 $58. WRITE (JWAITE, 112) S2 613 | : 
—" p@ 160 J=9, 14 2S $2 552° VEZ PORBAT (62, °9* ,V2X,9) 8, 10K, 22H 6 8%, MONS NS USK, 2%, NIE, 8 |", BML S2 612 
WO D{E,3)=25 (1,9) $2. 553. TPES, ETL 988, /, EN, T2V GH OND 52 613 
aKs>1 : S2 554 GO IC 120 S2 614 ) 
ceee DEFINE FLOT CODES hes $2 555 Cese RITE RESULTS Im SI UNITS $2 615 k © 
Coee WARNING-- WASNING-- THE FOLLCWING PLOTTING BOUTINES MAY NOT BE S2 556 $13 WRITE (OURTTE, 114) $2 616 =] bo 
Coee CCAFATIELE FOR CTHER INSTALLATIONS. THE USER SHOULD InQUIge aT $2 557 tte PoRRAT (VE, //, 31K, 68 (56%) 7,310, 9%* 665,59, /, UK, 9**, BX, UBHPOURIE S2 617 — 
Ceee HIS TUSTALLATION'S ERCGBAMBING SERVICES, $2 558 18 SEBIES ANALYSIS WITH SPECIFIED HAWMONICS, 104,° OF fo VIE, 88" 668," S268 Ay G2 
» CFs COMEUTE TINE SPACING FOR PLCITING $2 559 | 49,7 ,318 65 (98%) 7, 6K, T2T G88) of Oh5%%*, 190,94", 9K, °$*, 990,999,919 S2 6t9 ra 
TORG=T1 BE (K) S2 560 - We PEO VIN? 8 19K, 88 7,62, 9S", 4X, TOMDATA POLNT, 5K,°4°, 7K, 4HTINE,S S2 620 cs a 
Be Ot 1=2,21 $2 561 |) UN, 81 OL GAWEIGHT, 73,°5*, 3K, 19HPLTCH ANGLE,SX,**, 4X, 10HPITCH BATE S2 621 74 > ; 
IP (TORG.GT.TRG (IL-1). dU. TONG. LE. TRG QI} ) TPTP©T ARG (1) S2 562 VoS5¥ 69 d* ST, SHALRSPEED 6X ,°*"4/,6K 599", 19K, 94%, GF OM (SECS) ,7K,"4°,5 $2 622 aout 
IP (CRG. EQ.78G (1-1}) TPEP=TEG {I~1) S2 563 1K, BCMENTCHS) ,55,°)°, 4X, 9H{BADIAUS) ,64,° 49,3, IZH(RADIAM/SEC) ,4E,* S2 623 tC 
901 COMTINDE S2 566 2° EM, TH(B/SEC) 6X, °°, /,625°O*, 398,94", 29K,9)*%, 195X094", 19K,95", 19 S2 628 ey 4 
CALL ELCTIT(R, TETP, IP, LES, LEBC, BH, HD, XAL) , $2 565 1K,8 4°, 152, 98¢, 6X, 809, 119 (8~8) , 808; $2 625 ee ro \ 
102 IF (RETBIC.NE.0} GO TO 113 ' $2 $66 pO WE r=1,K S2 626 > 3 
ceee WBLIE RESULTS IN ENGLISH OWITS $2. $67 WS=PV (1) 68, 488200 . . S2 627 Hae } 
WOITE (AWRITE, 103) | Lo $2 568 ¥S=88 (1) *0. 3C48D0 S2 628 my G2 : 
103 POOBAT (1E,//, 312,68 (9%%) o/g31K,*8* 66,999, /, 310,96" BE, MGHPOURIE S2 569 WUS WRITE (QURETE, 10S) IL TERE (I) WS,P2 (1) FIL) VS S2 629 Pony e3| 
4 bed 
No 


1 
tLe Ee nt ns eee Se 


Aor 


ween Pe ee ee ESTE adae lveeta Alale Qab€2 cw! ana wuebOneeet MBS a ae . : ; : : . ; COIN RENE SELEY SEIT AAANA CUS SSE PRE ORE ER ae ELE Se Pa a ees erie : ge BR bias aA a Ga Le 


a ye POMBAT {6%,09" 119K 809 47 6K BZIP) of OK 988 VIS blo VEST 9 NIE. Se 
ae Petey WIESE UIST 18s INS OF o/e whe *Oo4k VOUUETS POLWT SEs ho Phot 32. 
MTERE OE] 4.5K, ADENSITY, 7X; TOs 2K, ISHAMCLE UF ATTACK 2069 bo UK el SZ 
-AAHTERPERATORE G4," |", 30, V2HACLELERATION, WL, *6% 4/,0K 0207 2 TOES" Eo AE $2 
1, GH{SECS) ¢7¥0° 44 4X SU(RG/NSO3) -0Xe 94444, 90 (MAVIAUS) 66,01" Oke TE $2 
— FQDEG= A) 6X0 91 4X, 10H (AZSECOOZ) 30,898, /e0K OTe TILA Ne VIROL $2 
Rr ereeek) OUn Pk) Pon ck Cat eee eee Ce S2 
ope Ut}? 1=1,8 $2 
|, ps=#8qrpe575. 3800 $2 
pss kB (rp ed. 304eL0 $2 
s ) PRP 7 QT) 90. 55555566 a on 82 
AV? WRITE (QURITE, 108) 1, TIBE (2) DS, F6{E} ,TK,AS 82 
 WRETR (MATTE, 109) S52. 
co 3 WEEE (WRITE, 173) er: tas Pea 
oo ye PCRRAT (6%, "9° 12K, 91%, TOK TU 22K et ee VOLS LY USL tee THK ede AK 52 
os i,‘ Bg o t6n,*e* o/76%,® of 4x, VGHTATA POLE, 10,54 % 3h oMHTEME, 30,944 UK, S2 
-  F2OHAWGLE-OF-ATTACK RATE, 1X5 °)%, 1K, GHALTITUDE, 1X, 99%, 1X, VIHALTITIDE $2. 
CU RATE, UN, SS, UX, TUMALT. ACCEL. , Uh, ' 4, UK, NZHVERT. ACCEL. , 84%, WM S2 
“q, WUHELEY. DEELECT sp We *®%o/ 6g tO ee Lh, Oboe ke GH (SZCS) g ZK," N%,5Ke0 S2 
“42m (BAETAN/SEC)  £Xo° 4", 1X,8H (RETERS) 1X, 54 p44, TH (M/SEC) UL 1* 62Ke 52 
“WNOW GH/SECOO2) , 1K, 48, 2K, 10H (B/SECE*2) g ZU 59h 4, FXy SU (RADIANS) 6 BK! OF $2 
te 4eGKe* Ot, 12E,°i* 21Cx,* b%e22m,h *,40x%,°1 ',154, *| *,134,° i* otuX,*3*, $2. 
51 PRLS PRR PROD Otekd fies $2 
po. 149 1=1,K $2 
SHE 10¢1) &9.2048D0 $2 
—WOS=#14 (T) #0. 304800 $2 
 WODS=812(1) 90. 304906 S2 
- - WBS=E13 (T) #0. 304800 é $2 
19 UBITE (IWRITE, 111) 1, TIE (I) -E9 (1) WS, NDS, HDDS -AZS, PUK (Th S2 
WRITE (IWALTE, 112} : ae $2. 
Ceee: PUNCH RESULTS $2 
$26 IP (LPAC(S) .NE.6} GO TO 125 : s2. 
WRITE (QPUNCH, 121) (TITLE (Ij ,1=1, 20) $2. 
921 fFoRmAT (204%) Lo g2- 
WRITE (IPGHCH, 122) K,S,RHO,G,TT  . $2 
122 EQRAAT ({110,4015.8) $2 
po 123 I1=1,K 7 ee re 
423 WAITE (JPUNCH, 124) TLME OL) EVCL) oP 2 C1) P3UL) o EMCT) oc ES AL) PG UT) PTC S2° 
"Vp o BOUT) o EF AT) oEVOCT) SOUT) -EUZ(L) PII CE) SPUN (ED aes | 3s 
124. FORRAT (3025. 1673D25. 16/3025. 16/3025. 16/3025.96) | SR 
Ceoee TAABSFER 10 REAL NEW CATA CF TO CONTINUE LOOP 52. 
- . 435 @eETUeN ae $2 
“ Coee. ERROR IDENTIFICATION BESSAGE $2 
126 WHITE (SWRITE, 127) . $2 
127 FORMAT (1%,///,20%,°THE SPECIFICATION OF 1vs{?) 10 we(?} ES IwcoRme S2 
VECT. PROCEEDING WITH WEXT CATA SET. IF aANY."} $2 
reaR=t S2 
aetcas $2 
gud -S2 

_. SUMBCOTINE PLOTIT (KR, PETA, IP gTES, LPRC,H, HD, Kad) PL 

Cc. Pe Ri ck : : a 2S 
(Cees SUBBCUTINE PLOTIT PLOTS TINE WISTORIES eb 
Cn ieee PP Oe Pe aaa” Oia, 

- .. YMOLICIT SEALO (A-H,O~2) PL. 
 PIMENSLOK KD 5), IP (14) eUPS( V9) -TPRC (9) 4 (450), UD (450) pew, eu 
COAACH TITLE (20) 9D (MSC, 19) g TEBE (450) 2A (100) -8 (160) ,21 (450) .P2(NSC) PL 

eee Me eases Se Gaia eee OMENS a 
; Se eocounti) . JE gente coms ee oN S saeenaen ae : i & Asan een - 


 wpnte: qowartes 36, ——--- 
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631 
632 


635 
636 
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6393 
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648 
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65% 
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6648 


666 


667 


668 


669. 


670 


671 


672 
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67% 
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WAVE 


630 


633 
334 


665 


16 E3 4450), FO (850) 5 PS (050) PS 1950) oF 7050) .PO (450) ,TT,RN0,PI,CoIES 8 


— $ETRIC, JREAD, JURITE, PUSCH,TESR.- 
“CONACH /CARBT/E11 (450) , P82 (450) 
 CCARCH /TESEI/ST (950, 4) PBR 06) ,PSL,TS 


sek ree tee a 


L,I PAR 


conacn prea T IFS (aS0} .P 10 (850) oF 43 {050} , F44(450) AP (0) (6). 
gales ERD (%, 450) o RDE4, USO) o ERD (4,450) 1D (4,450) -TRTE 


 TOTE=TPIX 

' po tI<t,k 

pO 1 J=1,4 

4. BRD ES, T)=TLAE (1) 

Ceee PLOT BEIGHT TINE HISTCRY 
 ¥P (1O(%; NEC} GO 10 % 

Bat: 

IP (LFS €1).EQ.0) M=2 

DO 2 I=1,k 

¥Rd eI, 1)+0 (1,1) 

XF {IPS (1) EQ. 0) FRD (2, TP =F tT) 


mE 


TE. (RETBIC. NE.O) ERD (1, 1)=TBE (1, 1) 04. 988200/100.0000_ ra 


2 TE (METRIC. NE. O.AND. IPS (1). 20.0) FRD (2 
" CALL EICSEZ (10.0, 10.0) | 
GR (METRIC.WE.O) GO TO 3 


CALL GRAPE (2.0,0-0,TPTP 75.0, 1,°TLBE (SECS) _" , ERD, 10,55, 3500-0, 8500 


| -1.0,25C.0,1,* WEIGHT (IBE)_* ,YBO,¥D, 164, 
* ¢0 tc & 
1.5.6, 1, WEIGHT (NEWTONS) /100_*, RD, YD, 
» | 
Ceoe PICT PITCH ANGLE TINE HISTCEY 
“@ EP {1B(2)-NE.0) GO 10 6 
u=1 
LE (TES (2). £0.0)8=2 
pe © I=1,K 
RD {1,1)=0{T,2) *100.000 


5 1? {UES (2) - BQ. 0) YRD (2,1) =F2 (1) 160.000 


CALL EXCSIZ (10.9, 10.0) . 
CALL GRAPE (8.0,0.0,2PTP,5.0,5%5 "TIME (S 


410.0, 1, "PITCH ANGLE (RADIAN) 2 100_* 18D, UD, 1,4 ol 850.KoKo Ke Ke0eBDe 


ate .*) 
ceee PLOT PITCH RATE TINE HISTORY 
6 IF ¢10(3).8E.0) GO 10 B 
a= 
IP (IFS (3). EG. 0) H=2 
oc 7 I=1,k : 
TAO (1,1) =D(I, 3} 100.000 


“DOLE (UPS (3). EC.0) ERD 42,1) =F 3 (1) $100.00 


CALL ‘PECSI2 (10.0, 10.0) 
call GRAPP{8.0,0.0,181P.5.0,1,*TIBE(S 
910.0,%,°PITCH BATE (RAD/SEC) % 100_*,¥ 
4,° _*) 
Cees PLOT ATASPEED TINE HISTCRY 
«6 ORF éQuP(4%).8E.0) GO TO 11 
ext 
IP (IFS (8). FQ.0)8=2 
po 9'I=1,k 
‘Wad (1,1)=D (1.4) 
IF (19S (8). £Q-0) TAD AZ. 1) =P 4 CT) 


“Lp 2¥BD {2 6) 08. 646200/100.000.. 


M,450,K,K eK Ke 0, KD," _*) 


ECS) _* -XBD, 40,5.5, 150.0, 200. 


1,4,0, 450 ,K Ko Ky KeOpkDe te” _ 


a cam tt cy ote ne « 


0 


ECS) _*, £80, BD, 5~5,-60.0,00.0, 


XO (WETRIC. WE.0)YRD (1, L)= TRL (1,1) 00. 308800 | eat 


or (METRIC. BE. O.AND.IPS (4) ~£Q.0) FED (2 


Sage eer. i aaa: ¥ et ee + ane Pia? 3 
j : : 


Sateen, soe aes Be AL tow same, 5 ' eyannepetind 


eL 
PL 
aL 11 
PL 12 
eL 13 
PL 1s 
PL 15 
PL té6 
PL 7 
OL 18 
PL 19 
PL 20 
eh 21 
en 22 
eL . 23 
Lb 2 
eu «so 25 
PL =§ «26 
eL a? 
e.. 28 
PL 29 
PL 30 
eL 31 
PL 32 
PL 33 
PL 34 
PL 35 
PL 36 
PL 37 
PL 38 
PL 39 
PL 40 
PL ai 
PL 82 
eL &3 
eL 8 8e. 
eL aS 
i? A “6 
pL 4&7 
eL as 
PL ¥¢ 
PL 56 
PL 4 
aw Ph... 52 - 
$3. 
eb 56 
PL $5 
SL 56 
eo... 57 
eL 58 
PL 59 
PL 60 
FL 61 
PL 62 
PL 68 
cei ne anes PL 65 
ee PL 66 
21) =YRD (2-1) 0. 304800 |) Sn 2d 
poo oe 


ECS) _* , ERD, XD, 505978020,80.0,. 
RD, b | b, 1 a4 2.450 ake a, g,X, 0. a9... 


oo 


Sie ran nat bree 
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ee a 


: Be ede fy ene ee hee aus ah geben, ; 2: 8 ap warns te ay 
CALL FICSIZ410.0,10.0) cre vi! PL 68 | Tbe saeeea STN esos TS ETI} £8848) 9 (89 (19-7941) ) e018 (F6 (1)) -EaTeR I, PL t28 
IF (HETBIC.WE.0) GO TO 10. : a Sa PL 6 MESETD) Pec ey eee) PAR UMD © CG9DCOS (BLUE) ) Fe ttD® Le3CEh eo ta eee PL 329 
Catt Te ATES PEE Eee e pot te TARE ISECS)_*, 440, 40,5. 5, 80.0, 300.0, PL WG NESTS SPS nemae ee LID) D =ZEEMoGeDCOS (F2 (I) #F3 tL) SPAR (OMe Noe tees eee tee ae: 
Ge Te FE EECCET/SEC)_*, VED, 4D, 1,4,0,4505K, KeKeKeo AE. Yes ="0 PL 71 "EP? D589 tF) eocos. 86 (1)) -24 33 eoSTH (PE (1))) PL 131 be 
GC. 10-44 a ; mann, PL: 22 TE (LFS (8).26.0) 1k0 3, 1)2R6 25} PL 1432 
VO CALL GATE (8.00.0, TP1P,5.0,1, "TINE (SECS)_*, £40, 40, >. 3,25.0, 100.0, PL V4 ae (AETSIC.EQ.C) GO To 70 PL 133 
a Pied DEAEESEEEC (M/SEC) _*, 180,40, 1,4,m,4507KeKy KOKO KDI Ye aa) PL 76 FORD 3,1 }=¥RD (1,1) 00. 20a8D0 PL 136 
Ceee PLC DENSITY TIRE HISTORY PL 7S VRE (2,0) =¥RD (2,1) °0.3CRaDG a PL. .435 
Wore (7245) .E.0) GO to 14 PL 76 mw {TPS (6) EC .0) 1D (3,1) =1HE (3, 1) ©0. 308800 PL 136 
u=t PL 77 20 cOomtinus PL. 137 
TE (IFS (5). EG. 0) N=2 PL 678 CALE PICS1Z (10.0, 10.0) PL 138 
DO tZ I=3,K PL 79 “EP -(ABUKIC. MELO) GO TC 21 PL #139 
¥RD §%,0}=D (1,5) ©10000.050 ree PL. .a0 CakL PPACCELE RAE hee seco g te TENE (SECS) _*, XWD, 10,5.5,~32.0,32,0, PL 140 
IP (LFS (5). FQ. C) YRD (2, 1)=F5 (3) © 10000. G6D0 : PL at preg? MCECERATECH (PT/SEC#S2)_*, 280,10, Ve6s ie WS OK Ee EoR Dat PL W481 
ke (SETEI o NE.) YRD ¢9,1)=0(1, 5) ©5153.000 eL a2 19 PEL 142 
12 =P Peer nace NE~0- AWD. IES (5). EC.0) 18D (2, I} =€5 44) €5.153- 800 os PL 83 GO To 2: eL - 843 
CALL PECSIZ(10.C, 10.0} PL a8 27 CALE S ACCEL SBATION epee Ue STEMEUSECS)_*, X@D, 10, 5.5,-1020, 10.0, PL the 
TP (RETEIC.NE.O) GO TO 13 PL 85 sap) MCCPLEGATION (n/SECo0d) "+ 10D, 1D, tededsuSO sk kee emo eo Tee PL 145 
Call DENSE Eyed eee se sor Oe te TIME (SECS) _*, 42D, 20,5.5, 14.0,280,2 PL 386 1% PL 146 
10,1, *DENSETE(SIUG/ ET ee 3) x 1000G_* , ¥RD, 101,48 ,430,K,K, Ky KO KD, PR 87 ceoee PECT ANGLE-OF-aTTACK gate TIRE HISTORY PL 147 
WW,* 9) BL 88 22 EP (1P(5).NE.0) SO To 2% PL 148 
GO 10: 4 PE 689 ee | PL 149 2 
13. car DEMS TET (Renee ee ets Oe Ve *TEME (SECS) _*, BD, 10, 5.5,6.0, 12.0, 1. PL (90 BO 23 1=1,K PL 150 
10.1, *CEMSITY (KG/nse 3 x 10_* YB. 1D, 1,850,450, KKK, Ko0,KD, 1, ° _") PL 91 23 ¥RD (1,1)=P9 (7) #100. 0D0 PL 151 
Coes PLOT ANGLE CF ATTACK TINE HISTORY PL 92 CALL PICSIZ (16.0, 10.0) ; PL 152 
HIF (IP (6).NE.0) Go 10 16 PL 93 Call Pt ARGLE OP ash eee ager te TIMKISECS)_* 18D, 49,5.5,~10.0, 10.0, PL 153 
f= PL 94 11.0,0,° ANGLE~CF-attacx BATE QBAC/SEC) x 100, LU 10, 18,0, 450,80, Re PE 154 
IF (IPS (6). 20.0) w=2 . PL 95 WK,C RD, 1,"  ¢) PL 155 
DO 15 I=1,K sfoetie PL 96 Cees PLOY ALTITUDE Tine wrstcoy ov PL 156 
FRO (1,1)=0 (1,6) ©100.000 na, a me, PL 697 44 TF (18(10).NE.C) Go to 30 o PL 157 
15 Ie tIPS (6). FQ.0) ¥RD (2,1) =F6 (1) © 300. 000 , PL 98 uxt PL 158 
CALE FICSIZ (10.0, 10.C) .¢ eee ¢ 3 ISAT PRC C3) cated TERE (8) GE~2-AMD.TPRC (9). £9.0) OR. {LPRC (8). PL 159 
CALE CANGLN OF aie d eee force te *TEME (SECS) _*, 480, 40,5. 5,-5.0,80.0,5 PL 100 OUD LEO OFT Pe egD ME-ODD) OR. EFS (5) - 80. O.aNDe CLP ME Lop cee sere Oo) PL 160 
1.0, 1,°AUGLE OF ATTACK (RAD) 2 100_*, ¥HD, TD,1,4, 0, 450,K,RoKR,O¢ RD.) PL 161. 1C.(9)..EQ.0))) w=2 ane PL 161 
1,¢ 8 oe PL 102 et 3 SAND. (TERE ES) ene p EERE (8) GE» 2. AND. LPRC (9) 42.0) -OR. (EPS (9) < PL 162 
Ceee PLOT TEAPERATORE TIME HISTORY PL 103 NEG) LT an ene cee 2s AbDs TPKE (9) EU.) Ome (LPS GP eae o dee: a PL 163 
16 IF (EF (7) .WE.0) Go 10 19 PL 104 448) -LT. 2, ANC. TPRC (9). WELG)) pea PL to4 
u=1 PL 105 De 28 Tg ger On AND. (UPRC (8) .GE.2.aND.ZPRC (¥) . WE <0) uxe PL 165 
IP (IPS (7). €Q.0) m=2 PL 106 DC 28 I=1,% PL 166 
be 17 I21,K po RAT eL 107 : FRO (1,1) =0(1, 5) /100C. apo PL 167 
YRDG4,1)=D (1,7) PL 106 ; IP (2PS(9).EC.0) Go to 25 PL 168 
TF (LFS (7). EC.) URD (2,1) =P7 (1) . PL 109 IF CEPRC (6) .GE. 2) ¥RD(2, 1) 2H (1) / 1000-000 PL 169 
re (HET BIC. MELO eee te) =5-0/9.08 (D (1, 7) -494; 7200) 6273. 1600 PL 110 1g J TEER Loy or ze MNEs PBC (9). NE.O) ¥80(3, 2) =¥10 (1) 71000.000 PL 990 
7 BOE NE*O-AMD.TES (7). £0.0) ¥RD (2,1) =5.079 0 (E7 (1) “49 40 72) 027 CL 4314 re t{EPRC (8) .L4.2) 18D (2,1) =P 10 (1) 71000. 600 PL 178 
13.1606 Pe (RL 842 GO 1¢ 26 ‘PR 172 
CALL EICSIZ (10.0, 10.0) PL 113 25 Fed ¢2,1)=?10 (1) 71000. 000 PL 073 SOD 
TP (METBIC. WE.) GO TC 18 PL 118 Ir CTPRC(8) GE. 2) YRE(3, 7) =# (1) /1060.000 PL 17% te whe 
Cali a Tet TERS e eee e ese Oe te STLOR (SECS) _*, X80, XD, 5.5, 450.0,550.0 PE 415 Ip UIPRC cae Ges 22 AND. LPRC (9). WE.G) ¥RD(4, 1) =F 10 (1) /1000.000 PL 275 ag, Bou 
gf 20Go Ve TEMPERATURE (DEG-R) "*, 200, 10,144,805 4-KeK TRIO eoedes —" PL 116 IP CEB eae aes LPRG (9) .ME.O) ¥HD (351) =P10 1} 71000600 PL 176 inn. 
1) PL 117 26 IP (NETSIC.EQ.0) GO tc 26 PL 177 tent CO} 
-. GO FO 19 PL 116 DO 27 J=1,8 PL 76 a 
18 CALL GRAPF(8.C,0.0,TPIP,5.6, V, *TIME (SECS) _*, XD, XD, 5.5, 250.0, 300.0 PL 139 27 ¥80 (3,1) =1¥RD(3, 1) *0.3C4aD0* 10. avG ®L 179 8 2 
gor Ve TEMEERATUBE(CEG-my _*,¥4v,10,1, 450,050 ,8 ASKER CO RD te -* ®L 120 26 CCHTENUE PL 180 “ > 
Seog | | | PL 121 CALL PICSIZ(10.¢, 10.0) | OL. tat . 
C4*e PLOT ACCELERATICNH TINE HISTCARY PL 122 IP (f8TEIC. KE.0} GO Ta 29 PL 82 Ct 
19 AF (IP(G) NEO) Go To 22 PL 123 CALt MLTTTOEE GPS) heen soe We STINE (SECS) _*, 28D, 4b,5.5, 2-0, 16.0, 9. PL. 483 any 
Wea PL 1248 OC SGT EE EFE /V00C_*, 188, 40, 1,4,4,4S0sKGKS Be Ro kates 4) PL. 1e8 ag PO 
IP IPS (8). &Q.0)N=3 “ RLS .., GO IC 36 PL 4485 2) oe 
DO ZC E=1,48 fo PL 126: 29 CALL METTTULE (ay ogee ee roc 0e We *TEME (SECS) _*, 420, 20,5.5,0.0, 49.0, 2. PL 186 id 
¥GD (1,%)=D{1,8) : PL 127 10, ¥.°ALTETUCE (HK) 7100 ~"eIRD GID, 1,45 ,450,K,K, KK eG KD61, 8 _*) PL 187 img GD 
_ 3 | pag J 
pat 
a 


eer. 


ea ¥ POONA nt CA I I eA oe abe A emeets chs etaiiitea its NSAP eR MeN Do | chee 4p airs RE si he abae on 





: 4 : 2 : 3 - : - so : ad fea ee 
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eae A He Oe deh ake mR Om cet eo 
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i ier ae 


Cees PLOT ALTITICE MATE TIAE HISTORY SS ; PL tae ¥RD (1,2) =D(X, 943° 10C.000 PL 246 





20 1F (UP (11).NE.C) GO TO 3% aie PL 139 G2 TE ATRS(11) EC.CHLAD(ZeTP =P IE(TPCIOI.COO a PL. 289 
co ADR. rhers Comeet ak yds eT ph . t90, - CALE EIYCSIZ¢30.0,10.0) os -. PL 250 
le ¢IPRC (8) .GE.2)N=3 nr 7 pe Wt . “CALE GRAPE(B.0,6.0, 1P1P,5 04 %¢ "ELBE (SECS) _* 4 EAD, KD, 3-5 ¢ 725. 0025-00 ee 251 
p0 322 1=1,5 | . PL 192 | $5.0, TELEVATCH CEFLECTICR (FAD) & 100", YkD,1D,1,9, 8,850, KK oKKO PL 252 
FRD QV, Tp =FV1 EL) rs ae a ] an be)  ¥,8B, 4, _*) — PE 253 
TAL CZ, 1) =P 4 CL) OF 8 (1) 46 PL tye “#3 RETURD > OL 256 
EP. (LBRC (6) .GE.2) ¥RO (9,1) = HO CL) PL 195 BUS PL 255 
JE (METBIC.EQ.0) GO TO 32 PL 196 C 
> BO 3t J=1,N PL 197 
FE ORD CD, Tp =t80 (5, 1) 90. 3040800 ph 9908 
32 COMTINDE | pL 19 “, SUBECUTINE SECI(K, Kak, LSP -LTEST, LL, MUS, USPS) $3 1 
CALE PICSIZ (10.0,10.0) PE 200 c 7 i a) ee 
IF (RETBIC.NE.0) GO TC 34 eL 201 Ceee SUBACUTINE SEC} CALCULATES EXASES, PHASE SHIT, BND OTHER OATE- 33 3 
CALL GRAPE (8.0,0.0,1P1P,5.0, 1, "TIME (SECS) _* 448.0, BD, 5 5-~ 100.0, 130- PL 202 Cove PEPERLCERT PARAMETERS BY A AININESATION TECHBIQUE AUD ADJUSTS THR 53 ® 
10, 10.0, 1,°ALTITUCE RALE (FT/SEC) "g VHD GYD sD, 4 Wed eK, Heh, Ke OOK, I, PL 203 Ceee DATA ACCORDINGLY $3 5 
vw ar, nets coe PL 208 C $3 é 
GG %G 34 pL 205 IMPLICIT REAL®O{A-H,0-2) §3 7 
33 CALL GRAPE (8.0,C. Cy TP TE oS eGo ty TUNE (SECS) _*, AD, 1D 49-56-44. 06 34.96 PL 206 DIMEDSICN WK (256) -DWK (2), 8 (3), 463) pTOL (2), THK (219, THI (6) - TURK (36), $3 9 
14.0, 1, °ALTIIDOE RATE(N/SEC)  "G¥BL, YD, 1, N,N HOG gh heks Ke IAKD eT,” _* pi 207 ARB AZ) o CC 16) C1606) 02 M60 V) WR C100) , LSP (9) , BK (96) gba (2) , COST (10) » SD 33 9 
y PL 203 WIC, 6) @ACOST (10) gSL{MSCy 3p o SK (MDG, 1) -SUK (250) DEA (450) - PRAT (450) 53 0 i 
Ceee: PLOT ALTITUDE ACCELERATION TIRE HISTORY PL 209 4, PER2 (456), 58 (450,2) s3).0C«#éAN!? 
Qu EP gtP (12). 882.0) GC TC 37 pL 210 conace TITLE (20) oDE4SC, V1) TIME (450) ,8 (100) 46 ( 100), F 3 (450) -P2 (950) $3 12 
bo 35 1=1, Pe 211 1,83 850) oPY (450) ,F5 (450) ,P6 (850) , 7 (450) FS (450) g TT RHO PL .G,IKS SN $3 13 
ERD (t, LPH FIZ(L) PL. 242 PETAIC, JREAD, JURITE, JPUNCH, TERR $3 ta 
45 LP (METRIC. WE. OP ERD AV, LPP 12 (1) 90. 30KUDO PL. £V3 ; COAMCH /CARRY/E 119 (450) ,F 12 (459) $3 15 
CALL P1CS1Z¢10.C, 310.6) fr PL. 218 7 CCAACH /TENEI/ST (450, 4) PAR (6) pPSL,TSL, LPAR $3 16 
‘EP (METRIC. NEG) GC TC 46 PL 245 CCRACH TENR 2/29 (NSC) oF 10 (450) 9 P13 (450) .F 14 (450) be (6) 6 W (5) $3 17 
CALL GRAPF(8.0,C.0,1P1P, 5.00%, "TEBE (SECS) _*, KUD, XD45-5,~100-0, 100. PL 216 EWETEGER LESEN (10) 0 Veleda tele tetetel/ 53 «(08 
10,.90.0, 1, °ALTITUCE ACCELEBATICN (ET/SEC®®2)_ 9 1 HUY, Vp tel, 850eK, Ke. PL 217 ie ee ae | 
K,K,0,KC,1," _*) PL 2t8 Cees TRITEALIZE FARAMETESS ere s3 06 20 
GC TQ 37 PL 209 Lcei=C : oo: 6«§3 at 
36 CALL GRAFF {8.0,0.0,TP1P,5.0,1, “TLE (SECS) _*, 28D, LU, 5-5,734.0, 38.0, pL 226 LRAR=1C : i §3 22 
14.0, t,° ALTITUCE ACCELERATION (B/SEC#O2) ©, LED, YD, 1,4, 1¢450K,K,K-K, PL 221 YTeSs1=0 wi. © §3 23 
10,80,1,° _") PL 222 No 1 J=1,6 53 2 i 
ceee PLOT VERTICAL ACCELEAATICW TIBE HISTORY PL £23 I& qh. GT. 1) @ (3) = (0) 72.000 : 33025 
37 1E (IB{13}.NE.0) GO TO 41 PL 224 1 PAR(I) =0.000 53 26 
pel PL 225 KI=OSL/ ISL $3.0 27 
Ye (IFS (40) .EQ-CpN=2 ‘1 PL 226 S2=8V0(Y $30 28 
oc 39 1=1,« : PR 227 Ceee CCABUTE FLIGHT PATH ANGLE AND [TS DERIVATIVE 53 29 
VROGU, 1p =O (1, 10) Bae ot ; -- PL 228 dO 2 L=1,8 ao $3 30 
If (1FS (10) .£0.0) YRE (2,10) =P VS(T) : PL 229 POEAU(L) =DAQISIN (FVI(L) /P4 iL) ) $3 33 
Te (BETRIC.EQ.0) GC TO 39 eat PL 230 PEAZ (L) =P PAT QL) $3 32 
po 36 J=1,8 PL 231 DER AGL) = (F% (L) PF IZ (1) —F 11 (Lp ORS (Lp) / (OU (Lp ODSGRT (1-000~ (RUN CLY/PN( 53 33 
30 YRO(O,F)=TRE (3,1) 40.3048D0 PL 232 TE) ) 92) OPA (T)) :  §3 3% 
39 CONTINUE PL 233 _ 2 CCUTINUE | §$) 35 
CALL PICSTZ (10.0, 10.6) . PL 2324 Céee PINE COMPATIELE ANGLE OF ATTACK $a. 36 
LO (METRIC. 8E.0) GG TC 4G PL 235. 3 acngq<0 ‘$3 37 
CALL GRAFF (8.0,C.G, TP1P,5.0,0, TINE (SECS) _*, &ub, BD eg 30 5_73260,32.0, PL 236 ‘ Bo 9 L= 1,8 $3 38 
4.0,1,* VESTICAL ACCELERATICK(ET/SECOOZ) GERD, EDs 0g 4, WSO, KK eK OK vL 237 Ceee SOLVE PCR ANGLE OF ATTACK BY NECTON RAPHSOW 7 ~ SR 39 
4,0,80,1,° _") Soin achat ie ait get PL 238 Its=C $3 0640 
Ge iT 41 ' PE 239 ALO=F6 EL) - S53. #1 
UO CAEL GRAFF (6.0,0.0, TP1P,5.0 91, TIME (SECS) _*, ARV, £055. 5,- 1020, 10.0 PL 240 " FPP UZGODSIN(FRAZI{L)) 78 (L) 53} @2 
9220, 1,* VERTICAL ACCELERATION (M/SECS*2)_ 9 ¥RD, YD, Web W e450 eK eK Ke Ky PL 241 | BE2=G9DCOS(EEAZ(L)}) #DEPACE) OFM (L} 53 4&3 
VW NEST,* _*) PL 242 '  @ Utes TTR41 33 «#4 
‘Ceee ELCT ELEVATOR CEFLECTION TI£E HISTORY PL 243 Fu=St (L, 4) -EPT9DCOS (ALE) - XP 2°DSIM (ALP) + KALOPD (L) OF 3 (L) $3 4&5 
at LE (12¢14).NE.0) GO TO 43 PL 248 PNEZTETODSIS (ALE) ~KE2*®GCCS (ALE) ; $30 & 
wet PL 265 FUPE=XP 1*CCOS (ALP) XP 2°0SEH (ALP) , ee $2 0a? 
TE (yes (11) .£Q.0)8=2 ae PL 246 RAD= QEME/ENEE) © (FNP/P MEE) — 2.000% (FR/PUPE) S30 448 
pO 42 1=1,8 oo BE 28? BLET=ALE . $3 «9 
eines: » wt) erin ie: weaniee Tak bee OM aca ee Coe Fg atepueeceme 0g vm, fee esi tr oe iketiaaale eeeiatiendl A incense  icomaaieaadl pore Nae 
seen ged ie Foamne oa! _ “peatactesy ot ie reer : eset thes. we Rear canetet 7 Meieotere us geresia aoa *, er : Weg: catstene ~ j eaenencnerne 4 ineeseseeesenae an chamendaiidl . ‘ eeu oe iy Om 
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ke (840.LT.0.056) cc ro 6 $3 650 St 41,3) @PPA2 ¢1) 002 33) (ute 
td ((FMCOPNEP).22.0.060) cor 5.. 33 St SO 17 £s2.g S32 ute 
ALE*ALP-PaeysENeRe SORT (aac) -S3  §2 : Coee IeTeckarE pares Foe PLicntT sate aUcLE 33 492 
GO %1¢ 7 $3 053 - EGAR=F2 (L) -F6 (1) 33 «983 
5 ACP=ALP~PaPsPeeP-oscat q@ao)- $3 Se S89 (2,) =xGaP : sc RSA aS TREN $3 tte 
GO 10.7 $3. 55 SLL, 1) 21.000 33 6035 
6 SQEcale-ryeyruep : $3 $6 SLL, 2) *FPA2(L) $3 tte 
RCUPERNC ATS} $3 57 47 St qa,3) =PPA2(L) o02 33) 06997 
6O 10 8 . 33) 5@ Coe Beact Least squares PCR BIAS AND Gatus $3. 1% 
741 Oe CALPI~ALE) .LT.1.00~ 15. 08,17 8.£9.20) &u To @ S33. «659 Caar Te eae se gSRoK +3, 150,850, 15, SUK, 1Ea, Jue IT 33. tts 
. GO TO % $3. 6g C#ee CORPUTE tHE FITTED FLIGHT PAtu ANGLE 3) 420 
Cooe POSH COEFFICIENTS Pog LEAST SQuages stces Bac si 61 BO 36 (=9,6 ‘ 33 6023 
@ SO(t,1) ale 53 62 Ai (LCM. GZ.0) SAL, 2) = 860261) $3 122 
Si, °)*1.000 $3 63 18 CBT aka ran (te 1) #SR (2, 1 OPPRZ (Ly 05843, 1) oFPA2 (2) 002 $3) 023 
SE(L, 2) =P6 (1) $3 6s Coee OBTAEN ITS DEREVATIVE $3 tls 
SE ¢L,3) =F6 (1) oF6 (1) 33) 65 CALL FOI (K, FOA2, TINE, OFPA,P 18, 3, 15, 3) $3 125 
9 CCouztucs ~ . $3 26: Ceee RECGHEDTE COMPATIBLE AUGLE CE attacx $3 t2e 
EP Q8CH1LN2.0) uBITE (JURITE,10) acar $3 6? LCUI=ICHTe] ‘ $3.) 427 
VO FORMAT (11,77, 102, V0ayecs OURLEG WEUTON~aaPusoN to FiuD Compatrace $3) 6@ GO To 3 33 128 ' 
0 AUGIE Cr ATTACK, Tue SCUTIBE WisH&KO TO Seek CIOVL&K...ROOTS,13, Ty $3} 69 C*e* CGREUTE wry ALTITUDE aud static PRESSURE ae ; 33 129 
9 tials. .7/) 33) 70 9 axer2 33 230 
Coee ESACT LEAST SouaRES TO D2TERAINE BIAS ayD Gal@ ESTinatres $3 71 DC 73 L=1,4 S32 139 
Calr URE ea Tat Kede TeM50,456, 15, Sua, TE, Jun ITE $3 72 IP (1.80.1) Go ro 2¢ $3 432 
BRITE (Jeerte, 11) (38 (L, 1) ,1=1, 3) $3 93 Paz EE apyy ett) TEBE (L-1)) © (P(A) ouStu(EPa2 G4), oF8 th-1) e087; 33 6433 
19 PORsat (310, "COMPatIariicy ESTIMATES OF THE BidS = *,1P023.95, 5374 Wwea2 (t~1)}) ; S33. 038 
WoFtE,* Cras ann GALES B8tuEEE IneutT i-> FIeST-cudeg Gale « 8 ap 53 7 20 SF (Le 2) E197 (1) ©( 1000-6. £€D-Gous) 908. 2606 $3 135 q 
1023.95,/,395,*AaD CALCULATED auGLe or arracy ¢ = =SkcOmO-oaDeR GAIN 5S} 7 2t CCedIADE $3 13% 
a = ¢,3P023.15,,) $3}. 77 RP86*0.c00 S3 137 
ceee COnfUTE as ANGLE-OP-ATTACK wagraNcE ANDICATION AuD wEw VALUES op $3 7a OC &6 Let tear 33 138 
Ceee ASGLE CE attace S379 IF (LLLEQ. Nun) Go Te 25 $3 339 
a¥r=0.¢0no 53 = 80 WRETE (JORITE,22) LLL Soe a Pasa 86 33 480 
OC 02 Lets S381 22 PopRat Ta Pe eRA TIONS ,12,3%,°SUBIPERATION®, 12, 7) 33 009 
SO(E, 1) =P6 (1) 33 82 ceoee STO5F DELTA VaLUssS $3 ta2 
OLD F6 (2) $38) DC 23 £21,6 reve ame ee $3 183 
PO(ip<S2 gt, tp ere (L)*¢saq2, 3) oré (Ly *32(3,1)) $3 as 23 Sov (i, )=PAR (1) $3 tae 
12 AVT@AVE © (PG (L) -OLD) © (6 (tL) CED) nen * ee | Coee TSITIALIZe MATRICES $3 185 
OBLTE (IuAETLL 13) avr gt 33) Wt C26 3aP=4, 24 $3 ta6 
- 93 PORMatr (390, °ANGLE-oF-atracer VARIANCE Luvicariog = °ot?013.6,/7) S32 287 OR (ITF) =0.96¢ 33) 187 
Cose CHECE FoR TMCREASING BI? Pesca ae — $3 a8 TP (OP.G1.6) Gc TO 2% ‘ata tiech th ote 33 46 
EF (LCHT. 80.0) SAVI=aTyY $2 a9 CC ITP) 20.0C0 33 1¢e9 
TP (lCHT.EQ.0) Go ro 16 $3090 2& CCHT INDE S33 250 
IE (A¥I.GT.SATI) Go Ta ty S392 Coes COMEUTE naztnun PARSSURE AND ACCELERATION |. ' $3 151 
Savre«avr S392 a5 AMBE=DAPS (S73 ¢1,2)) 33 152 oe 
GO 10 16 Sas eienes ee 3393 VHAN=DAES (ST (1,4) ) : $3 153 o 
Ceeo BESET ANGLE CF attack AUD PLIGHT PATH auGLL S30 wu BO 26 JxP=2,8 ; $3 5s Fay Ey 
1 oO 15 Lnt,¢ $395 rf (Dans far ete 2)) GT. 2aa8) ansuepags (sz (axP,2)) 33) 155 bang 
P6(L) =Sa(L, 1) I: Ss} 9% ae moe Cor UEP+S)) -CY. W8aK) Yeanevans (58 (gar ey, pO 33 156 Pry op) 
+e 2 CLCHY. 20.1) SA(L, 2) =PPAt (I) $3. 97 26 Continous $3 57 te 
US PPAZ (Ly =Sa(L, 2) $3) 98 Ceee COSEUTE vEIGHT PacTCRS 33 te a 
Cees BEGIN LOOP Fon SUCCESSIVE miuLaizatious s3)0 99 8469) =1.000/ (rnazexnaz) $3 «659 1 awe 
16 CALE PRICK, #6, TINE, F9,714,1%,15, 3) $3 100 80 (<) =1.0007 (raaxeynas) $3 166 ae | pm 
Coee TEST FOR MALIHUR ITERATICS CB LUCREASING FIT Kako ot $3 101 E(1)=0. 000 Suogh trey 33 061 ee | 
oe re (LCWT. GE. 10.08.40 .Gr.sa¥ty GO TO 19 $3 02 %(2)*0. 000 re alae 33 162 ie 
Cees DeTssrrar CCAPATIBILITY EStTInaATES FoR PLIGHT PATH BuGLe $3 103 £43} *0. 000 33 163 fey hey 
RGAn=F2 (9) -P6 (1) 53 108 TOL (1) =C. 000 $3 168 ie fa ; 
If (CUT. §8.0) KGan=FeA2 (1) $3. 105 TOL (2) =0.000 ‘ 33 165 ee 
Cee FCRE THE COEFFICIENTS FCB LEAST SQuaRgs _ 33 106 Cooe B2GI8 ConPUTING PaRaneteRs POR PARTEAL pEateative BVACOATIONS «=o gs) 166 | i GQ 
SB(1, 9) =xGan (53 107. SC 35 rat, ca ea S32 16? reg [Sy 
SL (1,1) =1.050 $3 ta: E8203 (3)-P9 (1) $3 168 don 
SUL(t,2)5PPa2(1) beak. Ase it 2 - $3 109 RS=P2 (1)-26 (1) | S32 169 iuict 
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— MORRICTPORFICI) ; ss . — $2. +170 36 FOL (9p 2T0ER (IP OCR (IPCREE(I) $3 2h. i 
8 DaCODSTBEFZIT)) re a eee F Ro 4 $3 870 35 coutzaoe | 3 . aa ? ie $3 231 
 weeGoncostP2iyy a. a $3 172 - .. ‘Cees COREETE.COST PURCTICE AED TCEBBAECES a 3a 232 . 
_ -ES=EPH AT) SOCOS (F6 (I) ). oo a $3 173 ; . PCE=0.0£0 i . $3 233 if 
 £10*8SC1) ODSIN(F6(T)) : 7 $3 176 ; SP (LE.2G.8UR) GO TC 37 s O4 . $3 238 
WUsPaCIpeKseOSIM(P6(I)) ee: as oan _ S32 175 ts BO 36 Fat, 6 nae 33 235 
0284 (1) © 4°0C0S (PE (1) ) Ry © 8 7 . - $3 6 36. PCP=PCE OW (3) * (BAR (J) ~BE (3) ) 0927 (AP (05 PAP (99). ae _ $3 2% 
en t2-010 vin 6 ves pS Me 20 eae $3 477 37 COST (L)=0W (1) STOL (ip eDU (2)ETCL(2peRCR = = $3 237 > 
.. ©Se® CHECK POR IWITIAL POINT CALCULATION Sra ce $3. 178. pO 38 r=1,2 Je 33 238 
| | OE®. @E.BE.4) GO TO 27 cs 1 33060179 (30 TCE EL) =I0L (1) /K ee $3 239 
KqQ=zr2 i Pee a _ sae . $3 180 WRITE CIBATTE, 39) COST (L), (ICL (I) ,1=3,2) fe $3 280 
o> . 9320.000 ' . $3 et 39 FORMAT (312,°CCST PUNCTION (J) = ©, UPD23.16,/,_ 310." UIEEs* fo 37K, °S $3 2a 
27 XP (©.2¢.1) GO 10 29 bg. °¥4 $3 182 © WATIC ERESSURE TOLEMASCE = *, 29023. 16,/,3748,° LONG TUDIBAL accsLesa 33 (262 
0 Za (ETL) HPP (I-1)) 7 (TEBE (1) -TINE (Z- 49) ar $3 183 (ZICH TOLRMAUCE = *, 19023. 16,///) re > mee 5 | 
-  Ceee FISD ECINT-10-PCINT TETEGRALS Sie. . S$} 186 Cees CHECK FCR CSCREASE 10 CCST FONCTION $3 246 
oo EU Pe (Tp SDSIN EAS) OPM (I-12) CDSN (P2(I-Up-F6(i- Wb $3 a5 «EB (RL. EQ.MUR) GO TC 56 $3 285 
{2p =F4 (LT) OLCOS (25) oF 4 (IL-1) SDCOS (P2 (I-39) ~#6 (1-1) er, $3 186 {Pe (L-L1.3) GO 1G 40 $3 286 
# (3) =P3 (I) © PS (Xp) © DCOS (X5) +P 3 (1-1) OF 4 (I~ 1) 9DCOS (7 2( 1-1) -P6(I- 1 $3 187 1¥ «(COST (L) .GE.COST {L-1)} GC TO 47 $3 247 
DO 48 J=1,3 ed a i eee em sae | | Ceee ADJOST FATREICES FOR LEAST SCGARES SOLUTION Oo $3 288 
28 K (3) =X (5) £0.500% (TIME (1) -TIBE (I-12) ) oF (I) $3 189 a0 CALL BSTR (RARE .6,1,0) gp 2a 
29 £98=1.000-6.86D-6% (3(1) PAR (6) OE (2) ~XPAROX (4) ) . $3 990  JPs0 $3 250 ; 
1S en 18 9¢3, 2600 $3 91 . s 90 @2 JJ=1,6 - oe $3 25% 
“EP. (LI. £Q.8508) GO TO 30 $3 192 / po 8t J=1,6 oe $3 252 
Ceee COAFOTE PARTIAL OZAIVATIVES Sf ... $3 993 xvacet, a0 7 $3 253 
ERI, 1) =16 . . $3 19% ‘HE (33. EQ.3) 1Fac=1.00005D0 ie a eo $3 25¢ 
-- $K QZ, 3) 20.000 7 -  .- $3 195 Jes aret a {% ye oe . $3 6255 
WK E152) =STEE.§) UR Lag OR te see a  §3 196 3C=OR (SP) re ae ‘3 $3 256 
WK (2,2) 20.050 ue 7 - $3 7 EP (2. 2G. 0d) IC2ICO2 00008 (3997 (AP (59) CAP LI9)) a. . $3 257 
9K (1,3) =27 i pay: a - g3 1998. C QJ 90) <XCOIPAC . 33 256 
BK (2, 3} =0.000 a! re | 33 199 @1 COBTIRDE Reh Se eee er 32 259 
WK (4,4) =0.0D0 a ee . . $3 200 Z E39, Vp *CC (JI) 62. 0000U (33) © CAP (II) P42 (IS) ) / (AP (53) OP (5) ) 33 260 
BK (2,4) =280113 Ge re :  . | $3 201 @2 CCHTINUE 33 6261 
UR CL Sp =EVOPT (1) OX 156 (29. 2236D-60 (K (3) © (9.000~ KPARORS/E7 (Lh) )- KICK Sd 202 _ 9e6G Pa ae pe $3 262 
198787 (7)) ei we” Mh an eald Set Se $3. 203 Coee BELSCE AATEIR ORDER AS SPECIFIED BY USER $3 263 
‘OK 61,6) =-29.2236D-6Ok 19F7 (1) * (0. OG0-NFAROLI/ UT (1)) OK USE (2) §3 205 EP (Mm. EG.0)L1ESt=1 $3 265 t, 
BK (2,6) 2-213 See ye yg — $3 206 18 {ITEST.AE.0) GO TO 56 S3 266 
| €0ee@ COMFUTE STATIC PRESSOBE AND LOWGITUDINAL ACCELERATION $3 207 eve: BUACT LEAST SQUARES SCLUTICS pre sage t ane oo = SB 267 
90. DEK G1) = RIOR TT) O( 1, CDC-KPARENI/E7 (L) | SLUSOLIGe Pam (1) #X6 SPAR (2) OST | $3 206 CALL LLSQAR (C, 2,8 No te6 26,15, UR, IER, JURITE) . $3 268 
10,4) ¢PAS (3) O27 $3 209 geese EST FOS FABOR a . 33 269 
et DUK (2)=190X19-KAKOXGONTOPAR (4) © (XO0K 13) ~KPARCE UOP3 (1) -PAR{G)OXI3 = =—-53 2t0 EP (EER.£Q. 129) TEBA=1 . 33 6270 
(Cees CONEUTE PRESSURE AND LONGITUDIWAL ACCELERATION OIPPEREWCES S3 21 Ay (TeaB.62.0) BETURE . $3 271 
PR Qtp=ST(L,2) -CeK ET) 53 212 . CALL BESET(Z,8) $3 272 
. OWK (2) =ST (I, 4) —DWK (2) $3 213 coee WRITE SCLUTION VALUES a $3 273 
shee - FR GLL.8Q.u0m) GO TC 33 . . 53 218 GRITE (OWAITE,&3) (Z(T. 1) 21=1,6) ‘i $3 278 
. eee SUB AATBICES OF PARTIALS . $3 215 a2 PORRAT (36H,°1ST LIDEAR ACCELERATION DEPBUVENCY DELTA= *,013.6,/,3 33° 275 
So oS RSO 33 216 102,°200 LIWEAR ACCELERATION DEPRUDEUCE DELTA= ©, DI3.6,/,30E,°380 & $3 276 
 $TH320.000 Bp te ne te ae i ee BD 207. so UE REAP ACCELERATION DEEEWDESCT DELTA= *,013.6,/,30%,°PITCH ABGLE SK 33 277 
pO 32 33=1,6 es - $3 218 « $aS DELTA = °,013.6,7,30K,°PHASE SHIPT DELTA = °, 013.6,/.30%,°PLIGN 33 278 
- po 34 3=1,2 — Hg sak 3 _ - $2 209° YP BATH ANGLE CELTA= *,D13.6,/) $3 279 
- JR=JFC1 . ae 2 ee - $3 220 ceee SUR CELIAS $3. 2860 
SUK (JP) =RK (0, 05) SDS CRT (DU (3) ) - . wee Se $3 221° ‘po ha 31,6 $3 261 
34 STUISST UD OTHER (IP) SDHK (J) SDSCRT (DU (5); ae S = ws $3 222 — oe PARED) =SDV (1,0) 42 (9,1) S23 262, 
32 183 ¢I9) =STHI 2: = ~» = SR 223 «WRITE (JORITE, 85) (PAR (I) t*1,6) ia sos $3 263 
 gS=a. : . bes Si 228 (@5 PORBAT (82%, °UPTATED 1ST LIMEAR ACCBLERATLON DEPESDEUCT= °,D13.6,/ 53 264 
CALL SATA(TURK, TEKK,2,6,85) — j + ae -_ $3 225 -: V,B2N,"VEDATED 280 LIWEAS ACCELESATION DEPEZMDENCI= ©,013.6¢/,925,°0 S$} 285 
CALL MACD (RR, TORK ,6,6,1) _ _ $3 226 WPCATEC 3RD LIMEAR ACCELERATION DEPERDEBCY= ¢,D13.6,/,42%,°UPDATED 33 286 
a CALL MALD(CC,TWI,6, t,0) a a $3 «227 WPEICH ASGLE EIAS= °,D13.6,/,82E,°UPDATED PHASs SMIPT= °,D13.6,/,%2 53 287 
-  Ceoe@ SUR DIFPERESCES SQUARED ae — $3 226 - WEo*QRCATED PLIGHT PATH ANGLE BIAS= *,D13.6.///) :. $3 268 
. «33 DO. 34 J=1,2 , ; . . $3 229 . RPAB=PAB (5) a $3 289 
P ay , wy : ' sel Gees wn Bo GE RE cme OE a, ro eas 
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46 CCUTINGE — i. ey a : $3 296 _ $3 CCOTIRUE in bo, Siar 7 33 330 
»  -ACOST(LAP=CCST (LD Ries age 23 ae he i“ $3 298 | Se FP (ITEST.WE.C.AWO.M.BE.O) URETE (SUBITES SS) 32 351 
a ee ee | gs te . 53 292 «S$ Pomear (36k, £88NO CCST PUBCTION WAS BKEU DETERMLEED TO SE BETTER T S53 352 
Ceee aDJUST COST FUNCTION axO DEGTaS | om - = 8) 293 WAR THE, /,3ERSEHPREVIOSS BEST COST FUSCTION. THKKEFORE, ITERATIO $3 06353 
4? ACCST (L1)=CCST (1-1) Gin Ge, . af 5) 296 | INS BAVE,/, JERK, VSHBEEM COMCLOUDED..//3i eo eR ohare igs $3 ae. 
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"TO JE TERS sé 
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2 M=TAB(L) -TH{L-1) s& 
d=t-1 $4 
T=T8 (3) sa 
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=-2.0N0¢ (DYE¢PSY¥Y) 2.000 (DY2ePer2)e2, Opo* qor Je pera) {DYSepers, -£R 
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D¥¢7p=D¥R Ta 
TEST FOR POSSIELE ERRORS Ta 
IF (IR. BE.0) KETURR J Ta 
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DV {3p =D¥(1¢1) Te 
ETP =U (Ee 1) Ta 
RTP ER (6p en Tt 
¥q7) 528 Te 
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Pree = C1 ON (2) 6 0 E17 RTI) © LY) © LK (zp) oe 
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ceee RATRIZ . «fF 
Cc | 
DIAEMSICE aqia,1) -U¢taA,, vqtve ty o0dt) waaREA (1) sv 
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gs —_ _ User Instructions — MDLCK 


¥ 


The program is written in FORTRAN IV and js designed to run in double 
‘ed precision on an [BM 370/165 computer with an average execution Time of 20 
ey seconds per case. Execution requires approximately 146,000 oytes of core 
: Storage. Given the Output of the FDR program (Appendix A), this program 
provides a quick means of determining feasible power-drag model forms and 
pe ss Initial estimates of the power and drag coefficients which would shorten 
be the execution time of the FDR2 program (see Appendix C).* The program 
a _ requires the specification of the following input data: oe ae 


MMT: 


odegrhed stage 2: 
i: 
at 


CARD 1: 


The read unit number {DS: 7 ye 2 eS | 
IDS is a right-adjusted integer number occupying columns 1-5 and 
specifying that the data is to be read from cards, magnetic tape, 
disk, etc. The user must supply the suitable job control cards 
for the tape and/or disk reads. The IDS parameter controls only 
no 7 ihe the reading of CARDS 2, 3,.and (45 .ya,3 + 5K). All other data is 
aad tO, Se. — expected in CARD form. i eae Pe ee as 


; : CARD 2: 


The title array TITLE1: Seen * ae? a: 
7 3 ‘The 80 characters of the array TITLE! are used for identifying © 
| 3 at” output. TITLET is provided by the first card of The punched — 
- _ output of the FOR1 program. — 2. hae fe 


“CARD 3:00 


(a) The total number of points K in the data set, 
(b) The aircraft's wing area S in square feet, _ 


i a (c) The sea-level atmospheric density RHO in slug/ft>, 
yi oe Cd) The acceleration due to gravity G in ft/sec?, and | a 4 
: <a eo. Ce) -Thé total elapsed time for the maneuver TT jn seconds: eat a eee 
—  K fs a-right-adjusted integer number occupying columns 1-10, 
S$, RHO, G, and TT are double-precision floating-point numbers = 
each occupying 15 columns beginning at column 11. These | ds 
hake values are provided by the second card of the punched output 
of the FOR) “pregranie: «SOF ae Pee eae 2 oe SS 


Salt must: be ‘emphasized’ that. this -progratt ‘alone. arester 4écadem 1h the 
Speci tication of the power-drag modei forms than does the FDR2 program. 
_ Pendent variables, while the FOR2 program allows only "steady-state! 


PRECEDING PAGE BLANK NOT FILMED 


CARDS 4,...,(3 + 5K): 


- CARD (3 + 5K ae 


The time histories of time T, weight Fl, pitch angle F2, pitch rare FS, 


airspeed F4, density F5, angle of attack F6, static temperature Xt, 
acceleration Fa. angle-of-attack rate F9, altitude x2, altitude rate 
X3, altitude acceleration X4, vertical acceleration X5, and elevator 
deflection X6; — , seal 


The variables T, F1, F2, F3, Fa, F5, F6, X1, F8, F9, X2, x3, X4, 
X5, and X6 are double~precision floating-point numbers each. 


_  eccupying 25 columns. These variables are provided by the 


The 


ning punched output of the FDR1 program. 


title array TITLE: pit st, Gee og 7 
The 80 characters of the array TITLE are used for additional data 


set identi fication. Since this program allows more than one power- 


drag model form to be analyzed in @ given run, TITLE is a'so used 
aS a control variable to end execution. Termination of execution. 
is achieved by following the last model~form data cards by a title 


 eard having only the word END In the First three card columns. 


CARD (3 + 5K + 2); 


(a) The power-drag model form parameters LOC(!): 7 es 


The LOC(I), | = 1,...,15 parameters determine the specific | 


model form to be used. The general form of the power and — 


stead drag-coetficient equations are 


feast one power term and at least one drag-coefficiowt noms 


Power = P+ P 


EXT 
PS 


EX3 


EX2 


v ay eae ree ie 


ere aes 


0 9 onan eo Dge Oy. De 


Through the use of the LOC(1) parameters, the user may include 
or exclude as many terms as desired... It is mandatory that at 


wii, #, 84L5 included; otherwise, the program will terminate prematurely. 
Whe following chart should be used in the specification of the. 
ooo deslted model (she 2s) a ee ee fe 
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(b) 


LOC parameter 
















-Locc1) 
LoC(2) 
LOC(3) 
—LOC(4) 
LOC(5) 
Loc(6) 
ci) 
Loca). 


~ L0c(9) 





: LOCK 10) 

| bocca) - 
- voct2) 

occas) 

Loc ay 


Loe (15). 


if LOCC!) -=.0, the corresponding coefficient term wil! be 
excluded from the analysis. If LOC(I) = 1, the corresponding 
coaftticient term will be included in the analysis. These 
parameters are right-adjusted integer numbers each occupying 
1 column beginning at column |. 
The desired type of output units METRIC: 
“14 METRIC = @, the output wii! be In English units. les 
METRIC = 1, the output will be in Si units. METRIG is a 
right-adjusted integer number occupying column 16. | 


ae ame a ete fete rte NO ate Ak em sae eS eet Newer AT AE CT, PLR 


ay: 
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Gey, 
(d) 
(e) 
Ct) 
“€g) 
(h) 


PE Eek CO ep ee i Ee abl. Cee ee ET eee Pee Cee Oe ae Ta 
eet 


FE Oa Ee ee eo Re ie eae ak 
+ 


eer en 


ed) 


(PGA Sag Re aera Se gt we Je cee ce easy we Reiehe | ARE OR LS Re gee gs Sige Seat 


Pe re Lene UCN ieee ne My RE Re Pn ae aS 


oe 
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Dy prtt nn, - r . ‘i saa tess wl bepod (nc teera MBE oe Soy ed on Be deed Het ’ . (og EPR 
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Ue 


CARD cy aa on + 3): 


the ecponsne Ext on the seeent sous eceeed erent Pore, 

The exponent EX2 on the third power-coefficient term, 

The exponent EX3 on the fourth power-coefficient term, 

The exponent EX4 on the fifth power=coefficient term, 

The exponent IEX1 on the second drag-coetticient term, 

The exponent IEX2 on the third drag-coefficient term, 

‘The exponent IEX3 on the fourth drag-coefticient ferm, and 

The exponent !EX4 on the fifth drag-coefficient term: 
EX1, EX2, EX3, and EX4 are floating-point numbers each 
occupying 10 columns beginning at column 1. No two of these 
exponents may have the same value; otherwise, a Singular | 
matrix will terminate execution. J|EX1, IEX2, 1EX3, and IEX4 
are right-adjusted se numbers each occupying 5 columns: 
beginning at column 41. No two of these exponents may have 


_ the same value; otherwise, a ei noelar matrix. : terminate 
ee | ee tare ee 


- CARD (3 +. 5K ee 4): 


ave lower allowable Limit PLOW of the power avai lable in foot- 
- pounds: per second, 


The upper allowable” limit PHIGH of the power available In foot 


- - pounds per second, 


The lower allowable. Nimtt CDLOW of. +he drag: Rear ACicde. 


en The upper allowable timit CDHIGH of the drag costficient, and | 
fe). : | 


The: thrust incidence angle TIA in radians: 
PLOW, PHIGH, CDLOW, CDHIGH, and TIA are float Ing- polnt 
numbers each Scene ying: 10 columns beginning at column Me 


re a: given run consisting of more than one eeuer side. model. a aa 
GO a OK + bee odd (3 - as 1 +) wide: be repeated for eaer, mode! form. 
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: Program Listing — MDLCK 
se ¢ ce Mt A c - FIED ©> PETCH RATE “ 68 
i C  PROGHAM: MODEL FORMS CHECK (MOLCK) FeQe SMETANA & SeRe FOX ML 2 c F4di} -> AIRSPEED am. 62 
as c he eee eooets i Oct met 3 c F5tt} -> OENSSTY¥ ma 63 
mee c mi 4 c F6(14 => ANGLE GE ATTACK m 68 
ce: a ¢ SESS SESSA ESESHESESS VF SSSESO FOSS SH ESHHOSOS . 1. $ Cc xi ~-> STATIC TEMPERATURE 10umnmyY VARIABLE) mA. 65 
| « ° * ma. 6 c Fe¢id <> ACCELERATION “a 66 
od °c eo mODEL FORKS CHECK & aa 7 ¢ F900). -> ANGLE OF ATTACK RATE ma GF 
rags c * . aa 8 € x2 -> ALTETUDE (OUNMY VAREABLE} 1 68 
at Cc SSVESSESESSSSS SSH SOS SESSE SE SESH TOSSEH EES EE aL +] ¢ x3 ~> ALTITUDE RATE COUMNMY VARIABLE} . ma 69 
eo c at. to c xe “> ALTITUDE ACCELERATION (DUMMY VARIABLE) “m 70 
\ c baad oa Cc xs > VERTICAL ACCELERATION (DUMMY VARIABLE) mam 860 oA 
ob, ¢C ML t2 Cc XG -> ELEVATOR/STAGILAIOR OEFLECTION (DUMMY VARIABLE) Am 8 F2 
ne c: GAYEN THE auteur OF FLIGHT DATA KEDUCTIGN PROGKAM #1. THIS PROGRAM ML 43 PS “a. «73 
: ¢ ALLOWS THE USER 10. DETERMINE THE MODEL FGRM(S) FOR THE PUWER AND MM.) O14 Pa [ee 7 
—€ . PRAG COEFFICIENTS FOR FLIGHT DATA REDUCTION PROGRAM #20 UF SHUULD ML is c 7 A ma 7s 
C.. .. BE EMPHASIZED THAT THES PROGRAM ALLOWS GREATER FREEDOM THAN FLIGHT ML 16 C IsPUT @8¢ CaRD (3esKeny na 7 
© © | DATA RECUCTIUN ‘PROGRAM #2 IN THE REPRESENTATION UF THE POWER ANU ML OUP c = ma. 7 
.C°° | DRAG FUNCTIONS. mL 48 c TATLE me TITLE CARO FOR ADOSTIONAL. LABELING or PROGRAM se 7e 
ea m 19 ct: | TERMINATION a 9 
C: Mm 8620 Cc. aes ; Wh: 6 88 
a < PRs, = ma 8621 Fa : ~~ Of. 
- ©. . THE FOLLOWING COMMENT CARDS DESCRIYE THE NECESSARY INPUT FUR THIS Mm. 22 c Met nO awl ag | a te ree oo Mm 02 
ek “ae PROGRAM. FORK A MORE PRECISE DESCRIPTION» CONSULT SHE USERS IN- aL 23 C §NPUT @88 CARD (345K42) (CONSULT USERS INSTRUCTIONS) =o a3 
: : STAUCTIGNSe . Mi 24 6 ; ae BO 
a Mm 25 c LOCtId <> MOCEL SOLUTION ‘FORM «CHOSEN -BY CARO coLuMN NUMBER) m/e = 
AS: input eee CARD 1 Mm = =—.26 Cc © tie i _ LOCEAIZ0 => ‘SKIP COEFFICIENT u 96 
ay ee . ) i : 2 2 c LOCtUI=L => ENCLUDE COEFFICIENT m6 OP : 
: Ee: se —> READ UNIT NUMBER LALLOSS READING OF CARDS, DISK. mw 8628 Cc. a oe eas a. er -T-| 
ae ear “es TAPE. ETC oF. ANE. OutIPuT OF FLIGHT DATA AEOUCT ION ma 29 Cc. METRIC -—> OUTPUT PRENT CODE aL 69 
oo a PROGRAM au, mw 36 ¢. 55 METRICZO -> DUTPUT PRENTED IN ENGLISH UNITS ma. 90 
a ma 86S c. METRECz3 => OUTPUT PRENTED IN SE UNITS a DR : 
¢ a 32 c are: m 92 
a : uk, ose x *. tet bd : ey ee Swe ee OE aL 33 Cc or 93 : 
€ EneuT. one carp 2. (QUTPUT OF FLIGHT DATA REDUCTION PROGRAM #1) | Mt 38 c — | Ma. 9a 
o€ _ oe, Meat ee) ae am. 6235 C INPUT @88 CARD €3¢5Ke3)3 (CONSULT USERS. INSTRUCTIONS) SO. 95 : 
mn amet (<> TITLE CARO FOR MANEUVER mM 36. c fee ee ee ; ma 96 
co be # oe os ma. 37 c Ext -> EXPONENT ON SECOND POWER-COEFF CIENT TERm “a OF 
as a 36 c yt 9 hy tee “. 98 
a a oe: “a. 8639 c Ex2 -~> EXPONENT GN THIRD POWER- COEFFICIENT TERA mm 99 
= 2 INPUT eee cap 3 (OUTPUT OF FLIGHT DATA REDUCTION PAGGRAM #1). a 8640 Cc i . mL «100 O QO 
c sd < a - a | c EX3 <-> EXPONENT ON FOURTH POWER-COEFFICIENT TERM Mk «408 
is ct _=—> NUMBER DF POINTS IN DATA SEF Mi = 42 c. e mw «oa by 
Lae Kak. . ae mam 63 oa €x@ = => EXPGNENT ON FIFTH POWER-COEFFICIENT TERM m 103 a eee 
ye $ -> AIRCRAFT®S WING AREA IN SQUARE FEET ma (44 c a id | ak 08 oJ G2 
C. | a «5 c ‘HEXL «=--> EXPONENT GN SECOND DRAG~COEFFICKIENT TERM CENTEGER} mm 105 /) B 
c RHO => SEA-LEVEL ATMOSPHERIC DENSITY IN SLUG/FTO83 Mm. 8 8§ «46 c ae: mw 86806 Cc 
< fe ee ; ML. a? c. 4EX2 ~> EXPONENT ON THIRD ORAG~COEFFICIENT TERM CINTEGER) - m 107 > 
Cc G => ACCELERATION OUE TO GRAVITY IN FT/SECee2 “4.  4€8 Cc: ma 208 pw] 
¢ : es . ae 89 C 1EX3 | —-> EXPONENT ON FOURTH DRAG-COEFFICIENY TERM (INTEGERD mm 109 iM 
Cox cm i => TOTAL ELAPSED TEME FOR MANEUVER IN SECONDS “a = 50 c. ae ae ma 330 & 
Cc “a St c: tEX® => EXPONENT ON FEFTH ORAG-COEFFICIENT TERM (INTEGER) m 8b ci | 
¢ “wi | S2 ¢ ma ae pp 
a a 53 c mw. 483 1 
C INPUT #00 CARDS @r000063¢5K) (OUTPUT FROM *FORI®) wm. (58 c | . a hae a ep) 
De “ 55 C ENPUT 99 CARD (345K 446) : mi 4S tent EZ 
c IOENTIFICATION OF NECESSARY INPUT TEME HISTORIES a S56 c ma 116 el 
—¢ au = «ST c PLUS «=> LOWER Limit OF ALLOWABLE ‘POWER AVAILABLE (FI-LE/SEC) MM 1147 <i FA 
c t => TIME (DUMMY VARIABLE) ML 58 c m. 216 TR 
i. c FIC) -> WEIGHT wm 59 c PHIGH => UPPER LIMIT GF ALLOWABLE POWER AVAILABLE (FT-LE/SEC) Me 119 
ve c F2ZUEN° —> PLICH ANGLE me 60 c mi 2 «(20 
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2 FORMAT (2004) | 


| G2 eM Se KG XS ONS 
Pe 
7 


cose 


“6 READ ( JREAD.23 CTATLECA) £2020) | 


7 FCRMAT C1611} 





. EMPLICIT REAL SO A-14.0-Z) F 
_ DERENSION £OCC15) -TETLE(20) oe TAYLEL E20} 


0 ATA, MENO/SSHEND 7 
¢€ 
Coes 


| FORMAT 611024055048) 


COLOW -> LOWER LIMIT GF ALLOWABLE ORAG COEFFICIENT 
“COMIGH => UPPER LUMIT. OF -ALLOWAQLE-ORAG COEFFICIENT ~~~ 


Tia ~> THAUST INCIDENCE ANGLE IN RADIANS 


ADOITIONAL MODEL FORMS MAY BE SPECIFIED BY *REPEATING® PROCESS 
FROM CARD(S¢SKOE) THROUGH CARDE3¢SKe4}e THE PROGRAM iS TERMINATED. 
WHEN..CARD(S¢SKOL} CONTAINS THE WORD *END* -In- SHE FIRST THREE CARD 
COLUMNS. : 


COMNON F E1450) oF 20450) 0F3¢ 450) oF 06459) 051450) FO14650) oF 81050) 94 
2450) C6450 985) 0X6 45001) oWKARC O50) oCFME 5S) o SGNL4 DeEK eEK2 EX 30 ENS eG 
PeSoRHOelT LA PLOW ePHEGHe COL Gus COHIGH. JREADs JURITE ohEX’ oLEX2c LEX So LEX 
84@,METRIC . ; 


SPECIFY CARREAGE CONTROL FOR INSTALLATION 
JREAD«aE ee 

' JPUNCHS2 

JWREITEs3 . 


READ INPUT DATA 


‘READ (4READ.A) 105 

FORMAT (15) 
CHECK {0S FOR ERROR = =; Taree 
fF (10S5eE@s JPUNCHeORs IDSeE Oe. JWRETE} GO TO 4h 


READ (105.2) (TUTLECCI DoT 216208 
READ €80563) KeSeRHOG 


0G S [nix ; : “ te, Aa ee 
READ CEDS0O) TENCE DSF2EEDoFACL) FOE 2D FSC) FOC ED XU FOCE DOF OED 


FORMAT (3025216) 
COMTI NUE 

SET CASE COUNTER 
ICaSE=x0 


CHECK FOR PROGRAM TERMINATION — 
{F UTEFLEC kb cEQeXENDI GO TG 13 
READ CIJREADST) ELOCCE} 5122.15) METRIC 


READ ( JFEAD.4) EMD CEK2 sEX3 cEX4 GS HEXL S LEX2 eo LEXIS IEG: 
FORMAT €4F10.0.¢415)3 ‘ 

“READ ( JREAD.9) PLOW sPHIGH, COLOW sCOHIGHSTEA 

FORMAT (5F 10.0} 


WRITE €seRITEW10} CTAVCELC ED 0020620960 FI TLEC LD of Fi 20) cLOSLOCEA Ds 
PLOCET) LOC C13) EXD o PLOW eRe LOC2d of. OC 68) LOCE LO) s EX2s PHIGHs EEX LeLOC 
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PRERESRRERRRERRERERERERRERBEREERE 


ra 


aae 
a22 
t23 
824 
e25 
£26 
327 
12a 
129 
130 
ase 
132 
433 
834 
a35 
136 
a37 
138 
339 
aaa 
148 
1a2 
a3 
144 
445 
846 


167 


148 
449 
isa 
15! 
852 


1564 
155 


1s7 
156 
{59 
_ $00 
865 
. 62 
&63 
6a 
165 
866 
&67 
366 
169 
avo 
ava 
t72 
a7v3 
ave 
47s 
avo 
t7T 
178 
179 
1890 


10 FORMAT CUHD 7777 02OK CBRL Do 7 o2OM 0 J * BAK oh oe 2ON0 |* oh KeZOASeh 


cose 


cove 


Cese 
hi 


a 


cose 
Cese 
Cee 


DIMENSION TSCE5) eL OCCIS) cL LOCt IS} eHt 8) Me 
' COMMON FEC650) 620450) 6F 36 450) oF 41050) oF 56450) oF 64450) oF 81450) FOE 
1490) *CLOSD 08S) oX(45008 be @KARE ASO} oCEME 1S) 6 SGNL 4) oEKI cE X2 EAS 6 EX 1G 
Pe Se RHO oT LA sPLOGePHIGHs COLOWSCOHIGHs JREADe JURITEs LEXA BEX26 LEX3 51EX 


14 ,HETREC 


cCese 





4° LOCEb2du*, 72,8 TL AX" oF G0 402K o RHOE 6 PDL Se Met BKe" | %o/s20Ke* §* 82 


DETERMINE NUMBER OF UNKAOeNS 


2 £3) LUCE DD LOC C15) cEK3So COLON e LEKZoLGOCE 4) oh OC4 16) 0S 0EXO eCOMNSGHG TERS 
PoLGOCES) LOCCED Ds GoMETR AC. BERD LUCE 4) OCLEZ) STIACRHO” 


BK ee F070 ZOK0 hho Bho ZOAG SEK of oF 20X0% J eB2K0" |e 7 eZOKe" fe AK o? boom 
sur PARAMETERS 2° 064K 08% oF 6 20K0% | * oO2K0 91 84 /e20K0* | 0 2K5° ESE, 408 
fLUCUUD EL 835" LOCK TE me. 83,8 LOCCUSD we 122K o EMRE FIO. e2XKe* PLOW 
BO oFEDeZeSK eo] 7 e2ONe® | o2Ko K *°otSe* KOCL ZIP =z*, 4 3,8 LOC(6b=* 13, 
ae POCE ER DES 6 £2 o2Ne*EXZ89 6F 1006 oe PHIGHE! FL be 254Ke" | oF 620X504? 
A2Xo* TEMAu* 53,8 LOC(3ie*,13,° LOCEG) =* .13,°¢ ROCESS dae 12 o2Ke*EXQx® 
BF 1006 02K o* COLOwO* oF eS eO Keo f %o/o20Ke |e 2Ke* LEKRZE* 13,8 Locde) ae 
Qol3e® cOCtaorat,f'2,¢ Set oF Ba de2KeEX4E" 6F 1006 e2Ke* COHIGHE® oF1 00606 
BHoe | oF e2OKe* |b * o2ke LEXIe® 83,8 LOc(Sp2¢,k3,* COCEILDa".i2,* Gael .gF 
BGs Soke METHICa® 61S e27 Ko | 8 aFr2OKe* f° o2Ke* LEXAR! 13,8 LOC(6)0*,13, 
Bot §* o7e20K,80G%~2 95 : 
UPDATE CASE COUNTER AND ENACT MODEL. SGLUTI ON 
ICASE@ICASES1 
CALL MODEL (KE CASE AGC) 
CGOMTEINVE TO NEXT CASE IF ANY 
GO TG 6 
BRITE ERROR MESSAGE 
WRITE (JWRITE 62) 
FORMAT CUR eS/77 20K 0° INOUT ERROR e080 [DS TS &iNcoRRECT* > 
stop : : 
END 


SUBROUTIME MODELEKsICASESLOCH™ 


SUBROUTINE MODEL CALCULATES. THE POWER AND DRAG COEFFICIENTS OF THE 
USER“SPECIFIED MODEL FROM THE EQUATION OF NOTION TANGENT To THE 
FLIGHT PATH : | aot a 


UMPLICET REAL @A( A~n.0-Z) 


OATA FAIL/4HNOGO/ 


WRITE (JeRITESL) 

FORMAT CAM 6///7650K%e27HN OD Et SOUT ££ GO Nes) 
AUN=15 
IcKizo0 
{CK2390 

JC=9a 

OO 6 £71,315 
Tf €20C¢4)) 
NUMmMNLIM] | 
Go 730 6 

JCZ ICI 
tLociucaxs 
iF @¢3~83) 
CCK im iCKie: 
GO fo 6 
MCK2zICK2e1 
CONTINUE 
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a a eae a eee RS a re a. er ee ee ns ee eee e003 
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3 | ge SSaaSSKEeSSOSS © 
ee Ceee wRITE MODEL VALUES 
35---- IF {METRIC.NESO} GC TO 18 


coos DE TEAMINE IF AT. LEAST. ONE POSER “COEFFICIENT ano ONE “DRAG COEF 
ceee FICIENT (5S SPECIFIED 
4€ (1CK1sEQ.00R- ICKZeEGe 0 GO YO 2b ---:: 


oO mo 
cand “oO 
me 1 nO 
4 Cees BEGIN MODEL SOLUTION. Oo 36 IF NFL eGTeO! GO TO lo 0 96 
a. - NFLaO . eo ST UNETE (JURITE SIS) CASE oCE MEAD oCENLOD o CRMC) oCEML 10) oCOMES ES CEMEEL OQ 9? 
Ee CALE ClinvE (SGN) xo 638 OD CE ML4) CEM LZ) NFL CEES) CFE 13) CERIO) cCEMCLIG) CFMC7TD GCEMCIS) « MG) | (OB 
eg. OO 6 isi. mo 39 ICFMCOE SSA uo 86099 
e —  AMBDABSIFOCED) | sD 640 BS FORMAT (28K, TOES) 070 ZOKs 96? TAK 0° S% oo ZBKeS% ZH ot CASES o1ZeEKeP MD 400 
Fd Cees TEST FOR NEGATIVE ANGLES OF ATTACK “oO 41 80 © *eMPOZTeLSeBKe*COD H Mo kPOZIe le ZKs*O* oF eZBKe Sel 2Ke*Pl = "yt MD IDL 
i «GE AF OCT deh T200000) CALL SIGNSESGN TEKS oVEXZe LEXSsLEXG) “Db 42 SPOR Se lGeIKe COL & *  SPOZ3e 16 2k oOo of eZOKs PO yi Ka  POINT* OAL? P2 © MO 102 
a ‘C@ee DETERMINE GENERAL TERNS FOR MATAIX FORMULATION MD 43 Be BPOZAe1GoDMe*CO® B 8 SPOSIS IMG e2Ko 9 8 o/e2GKe 6S ei Ka "FAILURES e3Ne MD 103 
oi TSUAPPOCOSAFOCEIETUAS SIF ACEP CFAC ADD “o> = 44 BEPR BW Me EPOZFe WG sBKe COD B Sel PDZFc iG 2h 08 O% o/oZOKe OO giXs*u*nk4nG MD 104 
cs TSCV™I AISA LPOFOLE PSOEXI “oD 645 AMe®*PS @ 84 IPOZTe lGeTKe*COS S *ohPDZ3e 1LOeZK a8 Oe eZOKe* SO oI2Ke°PS = MD 105 
TSCSPSTSCL OFAC EP OSER2 aD 8646 Bel POZ3e1GeBKo*COS # * glLPOZ3e lGeZKe*O% e/a 2OKo* Sel 2ZKe"PS = *elPO2Z MD 106 
TSC ODSESCL DOF ALL OFEXS “Do 47 CDebGeBKe®COS = * ohPDZ3e1GeZKo 6 OF yf e2PBKe So GLOK "PT w "gL POZ3elG234 MO 107 
TSESI=ISCI DOFOCE DOCEKS wD 648 BM oO aS eZOKe Ot Piha Ot eso ZBXe* Ot ei Ke FILE ERROR™ %e0Z3016539Ke2O%, MD 108 
TSUSPATS( LD OF SLID ND 49 A7e2ON69 9° TORSO! 57 ZAK STEEP O° DD uO 6109 
. TSCPVSTSO2 POF OLED a 6050 RETURN wD 3nd 
oe TSCAPSTSCL DOF ICL nee “ao 65h 1@ WREVE ( sURITESST) I CASE eCFMCRD eCEMED Do CEMEZ) oCEMEL Ob oCEMES) oCE MELD mD ttt 
TS(9)2-F5¢£) eSeFOL 1) 88270 2.0000F 1(5)) “Dp 8652 20 eCFMC 4) oCEMUL 2) CNFL OCFMO5S) CE MELRD) eo CEN(O) cCEMEIGD OCEMCTD OCEMCISDs MD bA2 
we VSCLOIMATSEDPSSGNEL DOAMOSLEAL “Oo 86553 ACEMCO) FAIL “o> 8t3 
Cots TSC LEP STS1 90 SSGNE2) OANSOREXR2 “Oo 6 SA BF FORMAT 120. T6C9O* a7 a ZOK 02 O* PEK a S* of pZOKe PO% e2Ke CASE oI ZeGXe*P MD 144 
non 'TSCA22mI S19) OSGNC SD OAMSOTERS ap 655 80 & Te APOZ Tce IG SIX COD F cIPDZ3e kOe 2K e9O* oS eZOKe® O* eh ZKe°PL @ %ei MD AS 
id FSCRIPRTS(OPOCSGNCS DOAMOOTEXS mD 56 UPIZReAGs IX e*COL =X & eLPOZTI» 1G eZKo Sle Fe2HKe *S4 eg UKe* POINT aGXe"P2 = MD Lib 
ae TSC14)0T7S19) OF 905) “Oo 6S? B® eo 8PO230 16 6 3Ko*CO® = *eIPDZ3eLGOeSKo 8 OF oH aZBXe Ot ete "FAILURES o3KXe MD LET 
Mi FSCLSDBISCODOR3ZCES MO 3a L9PZ HS *oiPIZ3e AG BKe*CO3 SF *ohPOZSBehGo2Ke tS of eZOKe*S ahKo HX" eI4e6 MO 118 
nt : IF CFOCTDeL Te020000) CALL CHNGEESGN) “G59 UKe®PA me *gIPDOZSelGsTNe* COS = * ghPOZ3e 1G e2K eo O8 of o2OKet OA ZKe9PS = MD 129 
74 Cees FORM COEFFICIENTS FOR LEAST SQUARES uD 660 ; BE PebPD23e1GsAXe*COS FH §sIPOSDe 1G6e2Ka®S% oe ZOKe "SO sAZKe*PO = *eAPD2Z MO 1290 
7m OG F JF eNUM “Db 866 BBVelGSoIXo*COG FS *okPDZ3e 1G e2Me® So aA eZEKe*O* oA 2Ke IPF @ %ohPDZ30 15234 MO 121 
oe 7 COLSIRBTSELLOC( ID “aD 8662 BK oO 8 ef ZAM eS gp TOM S89 e 2OKy "Se IXe* FIT ERRGR= * pA4e5OX 020% e/228 MD 122 
“3 B ACL WVAFSTIP SGCOSINGF2CTI~FOCEDD mo O63 Whe? PAK Oh e Se 2BKo THUOS* DS MD 123 
i Ceee ENACT LEAST SQUARES - aD. 64 KE TURN “BD 1246 
og GALL CLSGARGCC e Ke oNUMs 604500450" LoeMKAR MER, SRE TED “oD 65 48 UO 19 L¥ie8 MD 125 
a. Cees CHECK FOR ERROR i “D 80 66 1S WELD SCF MEL.) O80 3558160-3 MO $26 
an IF CLER*EQ*1 29) GO TO @ “Dd 0G? 4 ONECeGT2O) GO TO 20 MO 127 
I ‘Ga To ab “Do 86068 MRIVE (JURITE.IS) ICASE oH 2D eCEMCODoHE 2D oCFMC IO) oHESD oCEMC LTD HEOD “Oo 6828 
; 9 BRETE CJURITES LO? aD 8669 b eCF ME 22) NFL HOS) oCEMC RS) cHlGd oCEMO1GD cH07 bo CFMLIS) cHCG) oSSK mo 0129 
4 gO FORMAT (1K 0//080Xe*ZERO MATRIX ENCOUNTERED IN THES MODEL CASE. TO MD 70 @ETURN MD 430 
| A NEXT MODEL CASE. IF ANYs*) “a 867 ZO. WRITE CIWRETE C27) ECASE HL ED eo CEMIDS oe HC2) CEM EDD CHE SI CCEMC ELD SHE) MO 8 3E 
m4 RETURN tee oy mo. 72 2 CEM UZ) eNFL 01115) pCEME ISD HIG) oCEMCE OD ott? ) eCFMERSS 005) sFAIL “0 432 
ae Cees DEFINE COEFFICIENTS IN CORRECT ORDER MD OTS RETURN MD 133 
= 41 00 82 J=botS eZ. 20 BRITE C4URITE S22) MD 134 
e 42 Cfmisb=020D0 s wD 7S 22 FORMAT (1X0//7//520Ke* INPUT ERROR S0¢ USER SPECIFIED AT LEAST ONE L MD (135 
me DO 83 Jhb ehUM nD 76 1QC PARAMETER INCORRECTLY. ®) MO 136 
Pei ‘3 CEMELLOCE SDD SKd se kD : aD =O? RETURN MD A3T 
ae Cese DETERMINE FIT ERROR ee ha Eno a> «138 (oe. C 
, $$%20.0D0 sD 679 pest fone: 
DA 214 Jebek aD 8680 en 
AM=DABS(FG(9)) aD BR i 
IF CFG Id eLTeOcGOOd CALL SIGNSUSGNS TERE LEK2 0 SENS, EEKS) “Oo 682 SUBROUTINE SEGNSEY sXbeX2eX3eX4)> ae ‘ a a a OR 
PRCFMCDDCCFM(2 DOF 4E ID OSEKL CCEM(SDOFS( JPOSEXZECEMIODSFALJISCEXIECEM MD = 83 i ge SA tyes moa ee — ou 2 ao La 
105 2OF 46 J} SCE XAFCEMLODOFEL IDOCFEME 7) OF 9633 OCI 8) F365) “Db 684 Cee SUBROUTINE SIGNS JETERMINES THE CORRECT SIGN Ow TERMS IN - SN 3 A ae 
CORCEMC DID STEMCIGSSSGNE LD SAMOOCEEXIOCCEME ALD OSGNI 2 DOAMN®CIEX2 ¢CFMC Ize MO 8s (CeCe COMPUTING THE GRAG COEFFICIENT EXPRESSIGN OR ETS DERIVATIVES IN SN s ow > 
 LSGNED POAMSORERSECEMELIPOSGNI4 PPAMSECTEKROACCEMI LOS OCFOT US OCFME 15} 6F3¢09 moO 86 Cees RELATIGN ¥G ARGUMENT AND EXPONENTS j SN 5 = - 
an “oO 8687 c SN 6 
Coes CHECK POSER AND CRAG COEFFICIENT AANGE “0 8s EMPLICET REAL ©8( 4-11.02) . 5, 25esione belt aca SIN 7 asia 
rig CCP aL Ee PLOW eGRe Po GT e PHI GH) se Oke (COeLTeCOLGW se ORs CDs. GEe CONIGH) INFL MD 89 : INTEGERSS X1eK2e KT X4 a SN a pred ua vi 
SENFLeok “> 630 DEMENSION Y€4) oh (4) ; SN 9 ti He 
SSZDCOSEFG CID ETLADOCP/SIFLEC SPSFOCSDI-LFSC SD eSOF aC Pee2ZsC2-OCQOF IC Id) MD DE c 7 os oa : ose gee ae im Eo 
" AOCDEF BC II/GCOSINIF2ZCSITFOL SDD) “DB = 92 OO 1: rshes ' en AA = by. 
iss] 
pet ~~ 
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ee 
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eee eet 
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aa 
ai 


ep gp 
seer ear eraeearnel Pay 


oe 
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betty 


Mabon er wetmamn ene 8k 
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‘ Cees 


cooe 


SUBROUTINE LPSDOR(AMsNG ACA INV SLOGT «MKAREA LER, JORLTED 





_¥¢0)=1.000 
“CUR dwKa 
 ada2pane. 


i€3bax3 

iCedane 

00 2 (21.4, | pret ao 
Ff (460CT1 72902) oNEAL CEN DVEL I= A6000 a 
CQONTFINUE 


RETURN 


ENTRY CHNGELY? . 


- oa Ss. ini .4 


v¥05)=4.000 
RETURN 


 suaRaurane LLSGARIALDsNeNAsNBs IAs Bs 1DGT SHKAREA SER. JURITED 


SUBROUTINE ELSOAR PERFORMS a Least. SQUARES SOLUTION OF A OVER] 
DETERMINED SYSTEM (OF LINEAR EQUATIONS & ; 


DIMENSION ACTA CE) BLED 01) oWKAREACLD 
REALS SUM 


REALSS AeB oWKAREA 


INITEALIZE IER 

SER=0 

FIND THE PSEUDO-INVERSE GF MATRIX A 

CALL LPSDOREAsMeNAst As Ac DGT ep WKAREAs IERs JURETED 
fF CIER.NESO) GO TO §$ 


“SOLVE THE EGUATIGN oY MULTIPLYING A-INVERSE AND 8 


CO 4 171.N8 
DG 2 JleNA 
CALi .VXPZRO 


a 00 1 Kiem 
os CA VXPRULCACK SS) 6 OCK TDD 
CONTINUE 


CALL VxXPSTO(SUM) 
WKAREAL J) =SUM 


2 CONTENUE 
Coss. 


MOVE THE RESULTS INTO MATRIX OB ae 
OO 3 J83 sNA a oe .- ere 
BC J.T aUKAREAL J) 

CONTINUE 

‘CONT ENUE 

GO TO 6 


‘1ER=129 
(CALL UEATST( IER GMA SOARS JURETED. 
(RETURN 


END 


“SUBROUTINE LesouR FIND THE, PSEUO0- INVERSE oF A MATRIX. 


: OFMENSION: ACEA cL) cASNVESAsb De MKAREAC CCAD 


REALS. AsA INV» WKAREA CBIGA ce AMNe ZEROSETA 


wey 


peeereee. 


SN 
SN 
SN 


Pr 


Py 
PR 
PI 


: PE 


-- 2 


ar 
ae 
| 20 
“2s 
az 
gee 
ge 


CantdusrWtNe 


Puen em 


REALCS SUM,DETA 


(Coos iNsTIALIZE teR- 


3ZA20 
_ NP ianel 
NP 2aNe2 
bPIaNe 3 
Cese FIEND THE LARGEST ELENENT OF A- 

GE GAF0.00 
CO A Leben 
00) Listen 
SP (SL GAcGE.OAGS(AUS.102333 GO YO 1 
BIGASDAGS( ACH T1338 

a COnTrinue 
ANNZNON 
EV ASOSORT ( ANNI SE 1Oe SCL OGTIOBIGA 


| €88® CALCULATE THE SINGULAR VALUE DECOMPOSITION OF A 


CALL LSVALRUAGMyNe EAN oo MUAREAC 14N0 4) oHKAREACL OMPED ALNVOUKAMEA) 


080 2 §*icn 
2 UKAREAL £ eNP2) 2 UKARE ALI eNP IL} 


Cees VALUE 
CALE VSORTM( UKAREAC § aHPZ) MD 
OETA@ETACO2 
CALL vVxPZRoO 

Ceee CONPARE SINGULAR VALUES ANO ETA 
OG 3 Taken 
Ips] 

CALL VAPMUL (EK AREAL 2 LNP2 3 oe WKAREACE eNPZ)) 
Cal. VKXPSTO(SUM) 
EF USUNSGTeDETA) GO Ta 4 
3 CONTE NUE 
SERet 29 
6G TO ts 
& IPsf P34 

If @&P.NEeO) GO TO 5 

ZERO=0200 

60 70 6 

ZERO=zSKAREAL IP oNP2) 

DO 10 Eten 

BF (WKAREACTsNPE Sel EeZERG) GO TO ® 

OO 7 J21 oh 

WKAREAC J.B DMUKAREAC S01) /WKAREALL ONPS DP 

i. 40 TO 10 , 

ceee SET. BKAREACJoE DBGeOe FOR Jth eoeaeNs ita “MRAREAC EWI) oLESTERD 

8 CO 9 Sele 
9 WKAREAC 30132000 
16. CONTINUE 
OO 14 Talon 
00 i2 Jzlan 
CAtCL vxPZRO 
OO Qi K=ieNn 
$3 CALL VAPMULCWKAREAC cK) oAINVEE OKSD 
CALL VAPSTOCSUN) 
$2 WKAREAL JoNP3) =SUN 


A] 


CeCe MOVE THE RESULTS INTG MATRIZ AINV 


da A> Jalon 
“33 SINVES cSIRRNAREAL SNES) 
&& CONTINUE 

GO 10 16 
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P7 = -6.2007517924uS091CD Ju | | — 
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‘User Instructions — FOR2 


aes my 


The program is written in FORTRAN. IV and is designed fo Bese in 


936,000 bytes of core storage. 
(Appendix A), this program 


CARD 1: 


| (a) 
(db). 


(c) 


(d) 


(e) 
CF) 
(g) 
Ch) 
(i) 


(j) 


Ck) 


The 


~The 


double-precision on an IBM 370/165 computer with an average execution time | 
of 60 minutes for each maneuver data set. 


Execution requires approximately 


prints the input data in. English or Sl units, 7 
solves as many as 18 different model sets of Power: ana haps: 


coefficients, 
updates all rates for compatibi 


lity, 


calculates (1) a bias for the angle of attack values, 
(2) a 1/3-power model and iterates for initial con- 
vergence of the coefficients in the lift expression, 
(3) the coefficient values in the lift expression, 
(4) new values of angle of attack from the expression 
of the lift function, and 
(5) the frequency-dependent corrections to the agua? 


of-attack values, 


Given the ore of the FDR1 program — 


integrates the aircraft's equations of motion in the x-z plane te 
obtain time histories of both aircraft and flight path parameters, 
assuming airspeed and altitude are correct, 
estimates a specific fuel consumption, 

modifies the angle-of-attack values to cbtain a better match with 


the aircraft's trajectory, 


predicts the flight path trajectory in an iterative procedure To 


attempt an improvement in the power, 


lift, and drag coefficients, 


computes the confidence levels for rhe ang |e-of- -attack values and 


the pitch-angle values, 


prints the output results in English or SI units, and 


punches cards for stability ana 


lysis. 


program requires the specification of the following input: 


title array TITLE. 


the 80 characters of the array TITLE. are used as ' dontrol variables: 


+o end execution. Execution termination is achieved by fol lowing 


the last data card with a title card having only the word END in 
't should. be observed that on all 


the first three card columns. 


fore, the user. ie wish to. use ues card te: alan additional eecatod 
ee ane ion - Cee re: | 
| PREGEDIN + Rad 
NG Pac 3 BLANK NOT, Paap 


other occasions this card behaves simply as a dummy card. 


eee ee 


ead 


ee 
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(a) The read unit number IDs: ber, | a | 

Y is Ss, 8 DS 1S x16 right-adjusted integer number Occupying columns 1-5 
and specifying that the data is to be read from cards, magnetic 

| tape, disk, etc. The user must supply the suitable job contro} 

' | 1 “4. itis2e.8% - cards for the tape and/or disk reads. The IDS parameter — 

: ; _ ag ; controls oniy the reading of CARDS Doe oe ANG A9D ss ae ee OK): 

ee. See t . st All other data is expected in card form, - 3 | 

2 : : _ (b) The input-data print code INPUT: | oom 5 

«St INPUT is a right-adjusted integer number occupying columns 

| 6-10. If INPUT = 0, tne input time histories are printed. 

ea tf INPUT = 1, the input Time histories are not printed. | 

| (c). The plot code IPLOT: : - ee ers 

| ag 5 _ IPLOT is a right-adjusted integer number occupying co{/umns 

. ae | 5 hee af 


; , es GO gee ee. EEO = O, plots will be allowed. If IPLOT = 1, 
: ! irs. plots will be allowed. eee 7 — . 4 
Ea : —  (d)s The punch code |PUNCH: 7 eh edi 3 ¥ 
Ee : kote Fe IPUNCH is a right-adjusted integer number occupying columns 
| 16-20. |f IPUNCH = 0, no cards wil} be punched. If 

“ss EPUNCH = 1, cards will be Punched. 

(e) The desired type of input and output units METRIC: oe 
«#4 METRIC = 0, the input and output will be in English units. 

sf METRIC = 1, the input and output will be in SI units, 
. METRIC ts a right-adjusted integer number occupying columns  _—~> 
- 21-25. The specification of METRIC only affects The listings. — 

} ) a ~The punched output fs in English units. | an 3 
. | (f) The lift function code MTH: os | Pr ee | 
; 2 hn Oe od. OMTH ts. a right-adjusted integer number, Occupying columns — 
: : 26 =30, specifying the form of lift-coefficient equation. The 
F 3 | following chart indicates the available forms: . 

















FO Tas 


AA eM ee Mi see T 68 ; 


(g) The method by which the coefficients in the lift expression are. 
| determined, MCLCC: 
MCLCC is a right-adjusted integer number occupying columns 
31-35. If MCLCC = 0, the lift coefficients (x.'s) are 
calculated by a | inear- least-squares procedure! If MCLCC = 1, 
the lift coefficients (x,'s) are calculated by a least-square- 
distance procedure. lf the user specifies MCLCC = 1 and 
the procedure is not aa of converging, the progarm | 
defaults to MCLCC = 
(h) The maximum number MAXHP I. a Heererive attempts to improve the 
power, lift, and drag coefficients by trajectory predictions: 
c MAXHPI jis a right-adjusted integer number, occupying columns 
36-40, with a maximum permissible value of 5. MAXHP!. does 
not contro! the preset number of sub~iterations between the 
sa mode solutions. 
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(a) - The exponent EX1 on the second power-coefficient term, 
(b) The exponent EX2 on the third power-coefticient term, 
(c) The exponent EX3 on the fourth power-coefficient term, 
(d) The exponent EX4:on. the fifth power-coefficient term, 
(e) The exponent IEX1 on the second drag-coefticient term, 
(f) The exponent IEX2 on the third drag-coefficient term, | 
- (g) The exponent IEX3 on the fourth drag-coefficient term, and — 
—¢h) The exponent. IEX4 on the fifth drag-coefficient term: 
EXT, EX2, EX3, and EX4 are floating-point numbers each 
z © ee Fy — eecupying 10 columns beginning at column 1. I+ should be 


: noted that no two of these exponents must have the same 
value; otherwise, execution wil] terminate. IEX1, 1EX2, 
— TEX3, 1EX4 are right-adjusted Hneey numbers each occupying © 
3 columns beginning at column 41. it should be noted that 
no two of these exponents must have the same value; other- 
wise, execution wil | terminate. | 
Bo i se CARD. A 
| ~The power-ijrag model solution forms IMODEL( 1), 1=1, ple 
| IMODEL(1) are right-adjusted integer numbers, “each occupying 1 
7 column beginning at column 1, specifying the model(s) to be used 
F for the determination of the power and drag coefficients. The 
‘ - 3 | os general power and drag coefficient equations are | 
oe | ee ee EX2 EX3 , 5 yEX4 wae 
: Pie 3 ee Po + PyY : + POV + Pay: 7 PAY 7 and 
; C, = oe i oA pie} Scns one aie ao o, EX4 | 
2 ao ee a ar ee a ee ae 
ey 
ae PUPER,  Petian get TEs SPS. 
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Through the use of IMODEL(1), various combinations of the | | | 24 
coefficients can be speci fied*, If IMODEL(1) = 0, the model : 
— willebe bypassed. If IMODEL(I) = 1, The mode | | solution will be 

performed. It is mandatory that at teast one ‘model ts speci fied; | ss 

otherwise, the program will terminate prematurely. The following © ak 
chart should be used for the specification of the desired model(s): «> 


| {MODEL : 
l= i Pat 


| | | ; | 0 5s 


| Coefficients Determined by § Annivets | | i. 


{= 2 | i PoP GC~ 4c 
s See Orcas | 
C.. 30.850. | i 
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"The user may wish a cieeiey aie oren souelS vee Sees models pene | vo g 
In order for this to be accomplished, the users— must change the DATA ees a 
- ment and the INTEGER statement in Subroutine MODEL. The DATA statement _ Be ag Inks 
assumes that 18 "different models, each with a maximum of 10 coefficients = 


Song 8 


a ean en er, eae, ee Pes Ca eee a Se eg a a RS Ee 8 ee a —_—- a . mh 


ape oe he 


et ge for the power-drag model, will be. specified. The INTEGER statement eae 
a oe s indicates the. humbers, ae vunknowns | a the > model s of the DATA: statement. 
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CARD 5: 
(a) 
(b) 
(c) 
(d) 


(e) 
(f) 


(gi 


“oe “CARDS 6, 
| may 


ees) 


powcr. 


Chart (Continued) 


~ IMODEL CL) 


Coefficients Determined by Analysis 


| Pp 6, “pena. 
0 Do D, Do 


"IP PaO. 70S 
oP Dy D, 
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The lower allowable limit PLOW: of the power available in foot- 


pounds per second, 


The upper allowable limit PHIGH of the power available in foot- 


pounds: per second, 


The lower allowable limit CDLOW of the drag coefficient, 
The upper allowable limit CDHIGH cf the drag coefficient, 
The thrust incidence angle TIA in radians, 


The estimated initial flight-path-angle bias TARE in radians, and 


The estimated tnitial altitude bias HTARE in feet: 


PLOW, PHIGH, CDLOW, CDHIGH, and TIA are floating-point numbers 
each occupying 10 columns beginning at column 1. 


TARE and 


HTARE are double-precision floating-point numbers each 


The. a priori value AP(1) in ftelb 
the first power coefficient P 
The a priori value AP(2) in ‘sGitable power units* and ite 


eeGHey ie 15. columns beginning at column 51. 


+ 


- -WGT(2) for the second power coefficient P. 


eae) 


Og) 


The a priori value AP(3) tn suitable ao “units* and its 


WGT(3) for the third power coefficient P.. 


ae Sineecthe. Mcoe 4 tent" oe he Monee Saarcrae ceecticl ante 


~The a priori value AP(4). in suitable power cunits® and its 
| WGT(4). for the fourth power coefficient Pay Fat | 
The a priori value AP(5) in suitable power. units*® and its. 
ce eee for the fifth power. coefficient P ae 


a 


/sec and is weight were) for. 


weight 


weight 


weight — 


equations, 


— given. in the discussion of CARD 4, and the lift coefficients! equation, 
given in the discussion of CARD 2(f), are user-dependent, ne user must 


| Specify the. a ass values. in suitable cate 


weight 
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ee, 
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CARD 19: 


(a). 


Ab): 
hey 


(d). 


~~ (ea). 
teh ekg, SCE: 
TAL gest). 
Jonge 4 - ; SCH es, 
ek 1S 
ae © a 


ee, * ik) 
Bora, 


The a priori value AP (6) and its weil 
coef tictent C 


The a priori value AP (7) in aeons 
MeUCT) for the second drag eesre crane C 


Thea priori value AP(8) in Sul tabi draa 
WGT (8). for the a drag coefficient C 


The a priori value AP(10) in suitable 
WGT(10) for the rtth drag coeTttictent C 


PONIES SS SME CT PERE RRL Ba oe apes & 


D.. 


0 


The a priori value AP(9) in suit 
WGT(9) for the fourth drag coefficient C 


ji tet, Sgt fee fo 2S Slee gers dag pa coke TEES os toe 
nt ag ERE tires. = Wr Sle MRS GT ne, Cae CoE aie Aca ts Rat avrey 7 oa ae 
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ight WGT(6) for the — 

drag ree and its weight ea 
units* ane _ weight 
able drag iatiee: and its weight 


drag units* and its weight 


The a priori value API) and its Re WGT(11) for the lift 


ees Diet Sor C 


The a priori value AP (12) in per radian and 
for the lift coefficient C. » and 


The a priori value AP(13) 
WGT(13) for the litt coefficient C 


The 


The. 
The 


The. 


~The 


The 


The 
‘The 
The: 
The 


~The 


“The, 
| The. 


E 


hg 


%9 


Ly 
xX 


its weight WGT(12) 


in suitable lift units* and its weeny 


AP(I) and WGT (I). are double-precision floating-point numbers 


each occupying 20 columns beginning at column 1. 


Each of the 


thirteen (13) input cards contains the AP(1) and WGT(I) that 


correspond to the coefficient under consideration. 
weight on any of the a priori values prevents the ee 


Of an a priori value to that coefficient. 


plot 


plot 


piot 


plot 


plot 
plot 
plot 
plot 


plot 
plot 


plot 
plot 


code 
code 
code 
code 
code 


code 


code 
code 
code 


‘code 
‘code 
code 


code’ 


IP(1) for 
IP(2) for 
[P(3) -for 


IP(4) for 


IP(5) for 


IPG): fOr. 
IP(7) for static temperature, 
acceleration, — 


angle-of-attack rate, 


LPCS): fOr 


IP(9) for. 


weight, — 

pitch angle, 
pitch rate, 
airspeed, 
density, 

angle of attack, 


IP(10) for altitude, © 200» + 
IP(11) for altitude rate, 


IP(i2) for altitude acceleration, ag 


A zero 


IPC13) for vertical ; acceleration, 


gdp tep ee 
_, ee previous note). 
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germany 


UME 


(n) 7 


(oO) 
(p) 
(q) 


(r) 


‘CARDS 20, 


(a) 
constraint CRMAX(1) for the power coefficient P 


— (b) 


even 


(#). 


(g) 


= h) 


he, Tae 
au, © 2 Constraint CRMAX(9) for the drag coefficient C¥ 


(k) 
“) 


“(m) 


coral CROAK ES) for the Lift coefficient C* 


2 eager git Met rere! Fae gt ret peu eo se 
a Sh tat CRS ei er a iis er ee ER ale es o eualls ge 


The plot code IP(14) tor elevator or stabi lator dspiections, : 

The plot code IP(15) for lift coefficient versus. angle of attack, 

The Plot code IP(16) for drag coefficient versus angle of attack, 

The ee code Pad) for lift coefficient versus. drag coefficient 
and 

The plot code 1P(18) for power available versus airspeed: 

If IPCl) = 0,°a plot is produced for the "I"t+h time history, 

If IP(i) = 1, no plot is produced for the "I"+h time history. 
IP(l) are right-adjusted integer numbers each occupying one 

column beginning at pera lg 


? 


See oe: 


The minimal allowable constraint CRMIN(1) and the maximal dl towable 


The minimal allowable constraint CRMIN(2) mane maximal allowable 


constraint CRMAX(2) for the power coefficient PF, 


The minimal allowable constraint CRMIN(3) and the maximal allowable. ee 
Pees, constraint CRMAX(3) for the power coefficient P | 
eo 


The minimal allowable constraint CRMIN(4) and +18 maeinan: ‘aliGuable. 4 


a constraint CRMAX(4) for the power coefficient P 


The minimal allowable constraint CRMIN(5) and the maxima | allowable 
constraint CRMAX(5) for the power coefficient P Pa | Oe ee ak Oe 
The minimal allowable constraint CRMIN(6) and the maximal allowable 


constraint CRMAX (6) for the drag coefficient CAs 


The minimal allowable sistant CRAMNETS wed 4 maxima | allowable = 


constraint CRMAX(7) for the drag coefficient CA , 


The minimal. allowable constraint CRMIN(8) and the maximal allowable — 


constraint ‘CRMAX (8) for the drag coefficient CRs a a 
The minimal. allowable constraint. CRMIN(9) and the nex Mal: ‘allowable 7 
is | | 


The minimal. allowable constraint CRMIN(10) and - maximal allowable 
constraint CRMAX (10) for: the drag coefficient C* 


Fi 


The minima! allowable constraint CRMIN(11) and the maximal allowable 


3 


constraint CRMAX(11) for the lift coefficient cr 

Ot 
The minimal S ieeanis constraint CRMIN( 42). and +he maxima! si jewanle 
constraint CRMAX(12) for the lift coefficient pies 


The minimal allowable constraint CRMIN(13) and +he maximal ‘allowable 


L 


1} 
x 


———— | | | 
Since the "coefficients" of the power, drag and Lift nodttigtents' equations | 
are user=dependent, the user must sees the values of. ~CRMIN CL) and. ea a 


ea 


in suitable units. 
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CRMIN(CI) and CRMAX(1) are double-precision floating-point - 
_ fumbers each occupying 20 columns beginning at column 1. 
—. Each of the thirteen (13) input cards contains the CRMIN(I) 
and CRMAX(!) that correspond to the coefficient under con- 
_ sideration. oa ore. a. wee oe 


The title array TITLE: ; a —_ | ? 
The 80 characters of the array TITLE are used for identifying - 
Output. TITLE is provided by the first card of the punched 
output of the FDR1 program. 


34; 


(a) The. total number of points K in the data set, 

(6) The aircraft's wing area S in square feet, : 

(c). The sea-kevel atmospheric density RHO inistug/ft, 

(d) The acceleration due to gravity G in ft/sec2; and 

(e) The total elapsed time for the maneuver TT in seconds: | 
K is a right-adjusted integer number occupying.columns 1=10. 
S, RHO, G, and TT are double-precision floating-point numbers 

— each occupying 15 columns beginning at column 11, These | 

values are provided by the second card of the punched output 
of the FDR1 program. . | 


35 ,00+,(34 + SK): 


The time histories of time TIME(1), weight FICI), pitch angle F2¢1), 


pitch rate F3(1), airspeed F4(1), density F5(1), angle of attack F6(1), 


Static temperature F7(1), acceleration F8(1), angle-of-attack rate | 
FOCI), altitude F10(1), altitude rate FIT(1), altitude acceleration 


deflection Fl4¢ctl): 


FIZCI), vertical acceleration F13(1), and elevator or stabilator 


‘The variables TIME(1) and FI(1) through F14(1) are double= 


_For a given run consisting of more than one data set, cards 1 through 
(34 + be : ta : ee ee ee ee 


5k) must be specified for each data set. 


a i mR 5 
ERR tae 


| ro d precision 
_ floating-point numbers each occupying 25 columns. These variables 
are provided by the remaining punched output of the FDR1 program. | 7 


See teks (2 a 
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Program | 


* 
2:- 
* 


DpATA- RBEDUCTLOA 


AHCRSTEOEEH SES SHESE ESTE OES EOESSESO OSES ES SEOHETESOOES 


“GIVEN 


- FLIGHT. TIME HISTOKHIES OF WEIGHT, PITCH ANGLE, PETCH RATE, AIRSPEED | 
“DENSITY, ANGLE OP ATTACK, STATIC. TEMPERATURE, ACCELERATION, ANGLE- | 


VALUES: OF TILE ATBCRAET CHARACTERISTICS AWD THE ALSCHAPT*S 


OP-ATTACK RATE, ALTITUDE, ALTITUDE RATE, ALTITUDE ACCELERATION, 
VERTICAL ACCELERATION, AWD ELEVATOR (OR STABILATOR) DEFLECTION, 
aaa PROGRAS PERPORNS THE FOLLCWING: 


Pan? 
2 


a . 


-y 
7) 


mi) 


PRIBTS TNPUT DATA Ih ENGLISH OR SS UNITS 


SOLVES UP THROUGH 18 DIFFERENT MODEL SOLUTIONS POR POWER 


AWD. DRAG COEFPICIENTS 


CALCULATES a BIAS POR THE ANGLE-C¥-ATTACK VALUES 


UPDATES ALL RATES POR COMPATIBILITY 


COMPUTES A 1/3-POWER MODEL ITERATION FOR EWI TIAL CONVERGENCE 1 


COMPUTES THE LEFT COEPFICLENWTS 


LNSPECTS THE AUGLE~OF~ ATTACK VALUES DUE TO THE LLPT cOLF= 
ELCEENTS © 


CALCULATES FREQUENCY ~ DEPENDENT CORRECTIONS TO ANGLE-oF- 


ATTACK VALUES © 
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LMTEGRATES THE AYBCRAFT'S EQUATIONS OP MOTION TO OUTAIN TINE 
WISTORLES OF BOTH AIBCHAPT AND FLIGHT PATH CARANETERS aASSUS- 
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CALCULATES A SPECIFIC FUEL CONSUMPTION 


AODIFLES ‘ANGLE- -OF-ATTACK VALUES DUE TO THE ISTEGRATION OF 
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"PREDICTS THE PLIGHT PATH TRAJECTORY [IN AW ITERATIVE PROCE- 
~ DURE TO ATTEMPT AN IAPHOVEMENT IR THE POWER, LIPT, AND DRAG 
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PRLNTS output ‘RESULTS In ENGLLS 3H OR SL UNITS 
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FLIGHT oaTa RECUCTION ez ¢ rez pee on -SBETAMA: é 5.8. Fou AL 


‘SL 


AL, 


FES FETAL G EES 


OCGUIF NEW ee 


_-— 
-_ 


= of 
wh 


_ 14 


Chee ea 


sepred Bony cheese tee? 


NOMAD ONO ANONO AAA AAA AAAANAAAAAAGAAAAAANAN AAR ANA AANARAAAAAAANA 


INEUT 


INEUT 


2 ere aA, 
: 3 


TITLE 


oes CARD 
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A ‘NORE PRECISE DESCRIPTION, CONSULT THE USERS EN~ ~ BL = 62 
aL 63 
BL. 64 
aL 65 
NL 8666 
nL = 6? 
FIRST TITLE CARD -(ounny CARD, EXCEPT FOR PROGRAM AL 668 
‘TERMI MATION) aL) SO69 
7 ME (70 
RL O71 
aL 72 
. ME O73 
; ui SL = O74 
“READ UNIT NUABER. (ALLOUS READING (OF CARDS, DISK, aL O75 
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a ce eae a ete! Pawnee Gh aL 67 
CODE FOR INPUT oats ‘PRINT AL 67a 
IMPUT=0 <-> PRINT IMPUT DATA SL 79 
TupUT=1 -> BO PRINT at 680 
aL soBt 
PLOT CODE AL 82 
IPLOT=0 +> PLOT ML 6 683 
“[PLOT=1 -> WO PLOT SL saa 
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IPUNCH=1 -> BUNCH caaDds AL 638 
aL” 689 
 ENPUT/OUTPUT PRINT CODE AL 690 
SETRIC=0 -> ILWPUT & OUTPUT PRINTED in ‘EWGLIS# UNITS AL 91 
METRIC=1 -> IWRUT & OUTPUT PRINTED IM SI UNITS AL 92 
aL 93 
’ LIFT FUNCTION FORM CODE aL OK! 
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MTHET <> CL=x0¢X leaex2¢B AL 96 
- BYH=2 => CL=XOeX TeseK2eae4xX3 aL 3 97 
MTH=3 > CL=1UGeX TeaeX2OR OOK 364405 AL 86498 
BSTH=4 -> CL=X0¢Z 19A%4K3 ARB 99 
_BTH=5 > CL=XO eK USASSL Ze KUeB AL 100 
WHERE: A=ANGLE OF ATTACK NL 104 
'-  -BEPITCH BATE NL 102 
3 . BL. 103 
RETHOD OF LIFT COEFFICIENT CALCULATION AL 104 
MCLCC=G -> LIMEAR LEAST SQUAKES aL 105 
 ACLCC=1 -> LEAST SQUARE DISTANCE AL 106 
io 2 ak 6107 
MAXCNUA NUMBER OF ITERATIVE ATTEMPTS TO IMPROVE THE AL 106 
PGWER, LIFT, AND ORAG COEFFICIENTS BY TRAJECTORY SL 109 
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e* ae Poss rene a . . % A oss — pe ES — BL ok se ; i 
c _ EX2 => ExPOMENT on THIRD POWER-COEFFICIENT TERR | ae BT) C IMPUT eee cCaRD 190 7 a ee, <a aL 6478 5 
c aes. oe fe bie aye are & & ee.) ae BT") Co Mae oo 0, OR SS tet fhe he OL FQ ee 4 
c -EX3) ©. => EXPONENT GN POURTH POWER-CORPFICIENT TERM AL 20 ~C.  EP(1)---=>--PLO?T Cope FOR WEIGHT TISE HISTORY | . a4 AL 180 i 
c i 9 ins &Y, D fie: fe oes 3 BL 424 C': aa 1P(1)=0 -> REQUESTED . aL tal 4 
c. EIS = => EXPONENT OM PLETH POWER~CORFFICIENT T2an : —. AL 422— Co: ; IP(’)=1 -> WOT REQUESTED fos ok oe. Se «AL 182 H 
| c eae, 3 | : 3 AL 123 co ae - sede | 7 _ aL 183 a 
c EExd => EXPONEMT OM SECOND DBAG~COEFPICL ENT TERA (INTEGER) AL 124 c ~TP(2)) -> PLOT CODE FoR PITCH ANGLE TIME HISTORY . ML 484 4 
Cc , ee AL 125 Cc Bane of TP(2)=0 -> REQUESTED pet Pe AL 185 iy 
c ~EEK20 -> EXPOWENT OM THIRD DEAG-COEFPICIENT TERN (INTEGER) = AL 126 c IP(2)=1 -> WOT REQUESTED AL 186 it 
c | = ML 127 c . . a et 187 a 
: c T2830 -> EXPONENT OM POURTH DRAG-COEFEICIENT TERA (INTEGER) AL 129 c TP(3) => PLOT CODE FOk PITCH RATE TINE HISTORY et AL 186 .f 
Cc £4 . SL 129 c . IP(3)=0 -> REQUESTED 4; aL 189 : 
c TEKS = => ExPOWENT OF FIYTH DRAG-COEPFICIENT TERA (INTEGER) SL 136 c IP(3)=1 -> WOT REQUESTED ‘ ML 1590 4 
(a © &é, ML 431 c ee x NZ 6191 p 
ae . SL 132 c IP(4)) ~> PLOT CODE FOR ALBSPEED TIME uISTORY 7 aL 392 iu 
. Coton a | ML 133 c IP{4)=0 => REQUESTED ML 193 4 
Fo C IMPUT *e¢ CagbD & {CONSULT USERS TUSTRUCTIONS) » (oe ei ME. 9 ae c EP(4)=t => WOT REQUESTED AL 194 é 
a Cs paw ML 135 Cc . SL 195 Le 
aoe c _ | EAODEL -> MODEL SOLUTICGH PORN (CHOSEN BY CARD COLUMU BUABER) AL 1436 c TP(5) -> PLOT CODE FOR DENSITY TIRE HISTORY j AL 196 7 
ae c . FMODEL=0 => SKIP MODEL . - Ak 437 c L¢5}=0 -> REQUESTED Ab 97 
ee c IMQDEL=1 ~> SOLVE MODEL | AL 13% c ‘EP(3)=)) -> NOT BEQUESTED : AL 198 
Hage te. c . : AL 139 c . - 8b 399 - 
ee Cc AL 180 c TP(6) -> PLOT CODE FOR BWGLE OF ATTACK TIME HISTORY «a6 200 | 
ice ee Le seh Pid 33 NEL 441 c TP (6)=0 -> REQUESTED . SL 201 
ee FE gee tee eg ee, keg tig AL 143 c ke ee AL 203 
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eres ; c < PE ae <3 5, ; ages AL 145 c I°(7)=0 => REQUESTED Das, AL 205 
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ie ties Cc Tae: AL ta? Cc . SL 207 ; 
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eae See OR ok is . | — BL 149 Cc TP(8)=0 -> REQUESTED AL 209 + 
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alia Cc * Tia. => TRUST IWCIDEWCE AWGLE IN RADIANS ME 452 c IP(9) -> PLOT CODE POR ANGLE-oF~aTTACK RATE TIAE HISTORY . @L 212 i 
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[i -. c “ee | , AL 157 c | IP(10)=0 -> REQUESTED BL 217 ‘ 
E c NL 158 c IP(10)=1 -> not REQUESTED RL 218 i 
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c AP), MGT(2) => & PRIORE VALUE auD WEIGHT FOR p1 7 aL 163 c. . . 4 BL 223 a 
c AEG), WET E39) -> A PRIORI VALUE aND WEIGHT FOR P2 . . ML 164 c EP(12) -> PLOT CODE FoR ALTITUDE ACCELEGATION TIBE HISTORY gL 224 i 
Co AR (UY, WGT (4) 7? A PRIORI VALUE AND WEIGHT FOR P3 ML 165 Cc. 1B (12)=0 => REQUESTED AL 225 { 
Cc. . AROS), MGT G5) ~> A PRIORE VALUE and veloHT FOR PY SL 166 Cc . IP(12)=1 -> WOT REQUESTED SL 226 if 
c ~ AP(O), WGT (6) -> A PRIORI VALUE AND @2IGHT POR CLO «fh 167 Cc. ae es LF f 
c AR (T), SGT (7) “> & PRIORI VALUE AND WEIGIT FOR Col AL 168 c IP(13) -> PLOT CODE For VERTICAL ACCELERATION TIME HISTORY © aL 228 oe 
c AP (a), .WGT (8) “>? A PRIORE VALUE AND WEIGHT POR Cp2 ML 169 Cc ele IP(13}=0 -> REQUESTED . - AL 229 4 
c  AP(9P, WET (9%) ~> A PRIORI VALUE anD WeIGuT FoR cp} aL 6470 ce: . EP(13)=t -> MOT REQUESTED ' AL 230 ; 
c AB(WO), WGT(10) -> A PRIORI VALUE AND WEIGHT POR CDYy NE 171 Cc . ; : NL 231 ne 
c OAR(N9), WGT(T1) -> & PRIORI VALUE aND WEIGHT POk CLaG _ SL 72 c «ER (t4) -> PLOT CODE For ELEVATOR/STABILATOR TIME HISTOaY — ME 62352 4 
c AP(12), WGT(12) -> A PRIORI VALUE AWD JEIGHT POR CLA Mb 173 ©: ‘ oh TP(%4)=0 -> REQUESTED ML 233 a 
Cc. APQNS) © WGT(13). -> A PRIORI VALUE AND WEIGHT Foa CLAX AL 974 c IP(U6)=1 -> WOT REQUESTED BL 234 4} 
c eget : AL 175 e° 3 | ; — BL 235 4 
c BL 276 c IP(15) -> PLOT CODE Poa LUFT COEFFICIENT ¥S ANGLE OF attack ML 6236 fe 
c AL .t77 rod 1?(15)=0 -> REQUESTED AL 237 't 
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IP (36) -> 
IP (17) => 


EB E1a) => 


CRAIN(1), 
Cearu(2). 

_. CRaru(3). 
CANIN 4), 
Cantu (5), 
CUNEN(6). 

- CRMIN(7), 
Cantu’), 
CRAEH (9), 


IWEUT ¢¢8 CARD 33 


(| TLTLE => 


IUPUT *¢* CARD 34 


c => 

Ss => 
gua 
oe 
a > 


PLOT CODE FOR DRAG CORPEICIENT VS ANGLE OF ATTACK 


IP (16)20 -> REQUESTED 
IP (16) 21 -> MOT REQUESTED 


Ee(1S)=1 -> wor mEQURSTED 


PLOT CODE FOR LIFT CORFFICIZNT VS DRAG COBFFICIENT 
IP(17)20 -> REQUESTED 
IP{17)=1 -> MOT REQUESTED 


PLOT CODE FOR POWER AVAILABLE VS AIRSPEED 
IP¢18)=0 -> REQUESTED 
Te (18) =4 -> MOT REQUESTED 


Ceuak (1) 
CRAAX (2) 
CRMAX (3) 
CaMaX (4) 
CRAAX (5) 
CRMAK (6) 
cRnAX (7) 
CRAAX (8) 
CRAAX (9) 


rueur see caabs.20, ... ,32 


~~? 
-> 
-> 
-> 
-> 
-> 
-> 
-> 
-> 


_. CRNTIN (10), CRNAK(10)-> 
CMMEN(11), CRMAX(11)-> 
 CRBEIN(12), CRHAX(12)-> 
- CAREW (13), CRAAX(13)-> 
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SINISUR 
SLIA0A 
NIMIAUA 
Minwiava 
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SIMIAUH 


AAXIAUA 
HAXIAUS 
MAXI UB 
MAXIAUS 
MAXIMUS 
MAXIBUM 
SaXIR08 
NAXIAUM 
MAXISUA 
SALIAUS 
MAXISOS 
AALISUM 


MAXIAUG 


COMSTSAINTS 


COMSTRAINTS 


CONSTSAISTS 


COUSTRALUTS. 
COMSTRALUTS. 


CONSTRAIRTS 
COMSTGAIUTS 
COMSTRAINTS 
COMSTBALETS 
COMSTRALSTS 
CONSTRAINTS 
CONSTRAINTS 
CONSTRAINTS 


TITLE CARD FOR MAMEUVER (PUNCHED CARD PRON 


(PUBCHED CARD FROM “FDRI*) 


WUSBES OF POIWTS LHW DATA SET 


AIRCRAFT*S WING AREA IM SQUARE PERT 


FoR PO: 


rom Pi” 


FOR P2 

FOR 23 

POR P& 

For Coo 
FOR CDI 
FOR Cb2 
FOR CDI 
FOR CDS 
FoR CLad 
FOR CLA 
FOR CLAX 


*PDR1*) 


SEA-LEVEL ATAOSPHERIC DEWSITY Ie SLUG/ETSS3. 


ACCELERA Tio DUE TO GRAVITY 1% FT/SEC#*2 


TIBE(I) -> 
PUT) 


TINE 


-> WEIGHT 


IMpuT 9¢¢ CARDS 35, ... ,(3465K) (PUNCHED CARDS FROM *PDR1*) 


LOENTEPICATION OF HECESSARY INPUT TISE HISTORIES 


‘TOTAL ELAPSED TIBE FOS AAWEOVER EW SZCONDS 
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22. -> PITCH ANGLE 


wap > PETCH RATE. 

ra(r) -> AIRSPEED 

PS(Ip 23> )—s DEWSITY 

POU) «so =>) ANGLE OP ATTACK 

P7¢1) =>) «STATIC TEMPERATURE 

Pal) => AacCCELERATION 

P3(f)) = <-> ANGLE-OF-ATTACK BATE 

#10 (1) -> ALTITUDE 

P19¢1) -> ALTITUDE MATE 

¥I2QE} 0 > ALTITUDE ACCELERATION ; 

F1I3qi). <-> WERTICAL ACCELERATION 
- P1G(T} -> ELEVATOR (OR STABLLATOR) DEPLECTION 


LAPLICIT BEAL¢S8(A-H,0-Z) 
BITERMAL VA, ODY,DODV, ALP, DVA,PHIOER 


DIMENSION TLTLE(20) ,-LMODEL (18) ,PIT (2) -ALPHA (450) gTHETA (450) DUN (85 | 


30) gAL (4) WRK (1367) ,2P (48) , TRG (21), MHPT (5), THPATH (5) 


c 
Cc 
cese 


COBNSOM TINE (450) ,2 1 (450) -F2 (650) , £3 {450}, F4 (450), PS (450) , F6 (450) PF 


17 (850) , 28 (450) o P9 (450) , P10 (450) , P1450) ,P 12 (450) ,PI39(450) P18 (450 


1p pC (450,11) -X (450.2) , WKAR (250) ,CPR (14) ,SGM (4) ,SGD(4) , PT1 (450) ,PT2( 


1650), PWRA (950) ,CL (450) ,CD (450) .24 (450) ,X2 (450) ,EX1, 2X2, E13, E£44,6,5 
1, RHO, TIA, EXPX, PLOW, PHIGH,CDLOW ,COHIGH, JREAD, JURITE,JPONCH, LEXI, TEX 
12, 12N3, LEXS, METRIC, LY, L2,TEQNA{15) TERR 

COMMOM /LAB2/ICEPT, ICD, ATH, ACLCC 

COMMOM /LABS/ALPHAI, £1, PAC (8) -Z1,22 

COMMON /LASBI/ADF (450) 

CORMON /LABI/AP (43) , 8GT (13) ,CRNINE13) ,CaHAX (13) 

INTEGER MLLS (6) /2636364%5203/ og MLSD (6) /2, 208 54%,3,3/ 
DATA T8G/0.G6D9,5.000,10.000,15.000,20.000, 25.000, 30.000, 35.000, 40. 
1000, 45.000, 50.000, 55.0D0,60.000,65.000, 70.000, 75.000,80.000,65.0D0 


SPECIFY CARRIAGE CONTROL FOR IVSTALLATIO“ 
JREAD=1 
JWBITE=3 

JPURCH=2 

JELOT=06 


READ (JREAD,2) (TITLE (I) ¢I=1,20) 


2 FOMMAT (2044) 


Gis s 
cess 


Cees. 


CHECK FOR PROGRAM TEQNINATION. 
IF {TITLE (1).EQ.XEWD) GO TO 200 
IWITIALIZE CODES 

Leac=1 

ISET=0 . 

Less=0 

CERR=0 

1up=0 ne 
Isk=9 . a 
 TER=0 a 
EPATH=0 

PITOK=1.0D-13 

LPAGaE=1 

IteRn=0 
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cc: .. De PP Ee tore bee a ee aL 358 - -  CS®S. CHECK FOR ATH OR AAXHPI eeeoss eo : ML ete 
oe eee ee a ee Scere ee ee st 359 =~; a. IPF (STH.LT.O.OR.NTH.GT.S)ATH20 2 2 2 2=—— . a ne 8 ML 419 
nt, 4s BEAD (JREAD, 3) IDS, IMPUT, LPLOT, IPUNCH, METRIC, ATH,ACLCC, MAXHPL SL 360 | . —  MAKHPISIABS(MAXBPTD . 3 aL 420 
ROBART (GES) cia sgh Sage eH Oe Sek GL Rn Ge Rte ere Ge BE 364 IF (RAXHPI.GT.5) MAXHPI=5. 4 ML 621 
ee 1 2 ; NL 362 Cose DETERMINE NODEL WUABERS ae rw, PoC Sw: a ML 822 
. C®*®. CHECK FOR ERROR TU Ios. ye Le : AL 363 «| : TKa=0 . ae % g aL 623. 
0 OER 6(EDS.LE.3)EDS=JREAD =i tit a SL 364 - BDO 1S IL=1,18 , ‘ SL 424 
GC 234 ee AL 365 IP ({ITAODEL(IL} 29.0) Go To 45 ae ee SL 425 
‘ c ; asd ow Bes ‘ee mo BL 966 - FMR=1KGet tO . —— _ @b 826 
in "| MEAD (JREAD, 4) EX, BX2,E43, E246, 18X1, LEX2, L243, EKO | are ML 367 _ FEQUA(IKS} =IL : aL 4827 
é FORMAT (6710.0,415) a . ee etaee ca Oo «BL 368 1S CostrIave ee ee : aL 62a 
Cc <n woe SL 369 Cee CHECK FOR RODEL EagOR os a” . _  @L 829 
: at =a | : a AL. 370 a _ EP (IKR.2Q.0) WRITE (JURITR, 16) eee . ie al 830 
bs MEAD -(JBBAD,S) (LMODEL(I),I=1,18). = cr: AL. 371 - V6 PORMAT (12,//, 101, "ERROR DETECTED IM RODEL CODE. 0 MEXT DATA SET AL 431 
:  . § PORMAT (1811) . . eek AL. 372 Vo TP awy.t) i . lL 432 
i ee ais ae a are . . ; ; Eat a @~L 373 ne ¢ 1 (IKN. EQ.0) GO TO 1 = Bees Pore GENS Ade ee | ae’ f | 
bes eo eee oo os cig St aa SL 374 L1=1 aL 434 
br hol Ak ares A MEAD (JREAD,6) PLOW, PHIGH,CDLOW,COHIGH,TIA,TARE,HTARE aes SL 375  ~L2=Ika 4% 4835 
 @ FORMAT (5710.0, 2015.0) = po uke — &b 376 Cees PRINT TITLE eo ~ & : . AL 4836 
Cc Hae . HL 377 . WaITE (JURITE, 27) (TITLE (I) ,I*t,20) . a 637 
ue Be ee ee He. - F - 378 - 7 POBNAT (9H 16////o 23K, 84 (999) 4 /,23K,°°* 820 ,6%*,/,23K,°8*, 2008, 22, AL 438 
ae os RAD (JIREAD, 7) (aP (I) ,WGT (I) ,1=2,143) 7 is SL 379 1987, 23k, 88, O28 O9,/, 23K, 88 (89%) ee ML 439 
Pe ee oD PORNAT (2020.0) ag SL 6380 CO6e WRITE INPUT PARAMETERS — MR 6480 
ne ; Ae oF 5g," at i . = HL 381 >. -. RITE (IWRETE, 18) IDS, £41, PLOW TIA, IBPUT, 212, PKIGH, TARE, IPLOT,EX3, AL 4a} 
bs i, a ok Pa ; ee ee | a | a : | NCOLOW HTARE, TPUNCH, EXY ,CDHIGH,G, METRIC, K,S, RHO, TT, NTH, EEX1,1EX2, 12 AL 442 
re READ (JBEAD,8) (1P(Ip),I=1,18) | ee PEL aL 363 _ U3, TELG, (MODEL (I) ,L=1, 16), (KB (1) ,I=1, 18) SL 443 
8 FORMAT (381%) ma be ee . BE 384 18 PORMAT (1%,//,18%,95(°-*") //, 19%, * IMPUT PARARETERS:*,//,27X,*IDS AL uN 
ee “sa. Soe 1 : SL 385 . oO T2e2K, SBXI=", FIO.7, 2K," PLORK* 4016.9, 2K, *TIA=*,D16.9¢/¢27X_  LMPU HER 445 
gos a te . aoe Y 4 Ties oe . 8b #386 WH "e125 2E,°EX2=",F10.7,2K,*PHEGHS* ,D15.8,2X, *TARE=", D15.8,/,27L,°L SL 446 
koe : .) os READ (JREAD, 9). (CRALM(T) ,CAMAX(E) I=t,03) 0°00 , aL 387 VELOT=* 12,24, EX3=",P 10.7, 2K, *CDOLOW=*,D15,8,2X,"HTARE=* D147, /,27 AL 447 
Foie. es : 9 PORMAT (2D20.0) | 7 ; a 53 aL 3389 oo Wg *TPGHCH= 6,11, 20,9 EX4=9,P10.7,2K, *COHIGH=", O14. 7, 2K,*G=" FIO. 7. /, AL 6448 
c + a aL 389 . 1272, SETRIC=¢, 11, 2X, °K=*,13,2K,°S2",P5. 1.2K, BHO=",DI7, 10, 2K, *Ttae AL 449 
poe a Pade oie, tes oe i | Bes SS 4 > ME 390 1,F79.6,/,272, ATH =*, 12,20," 1EX1#* ,23,2,° LEX2=",13,2%,"1EN3=",13, ML 450 
Reuewe: a “te MEAD (£DS,10) (TITLE (I), I24,20). : 2 * cr SL 391 V2K, *REXG=* ,13,2K, *IMODEL(1}=*,12,/,27%, *EMODEL (2)=",12,2K,* 1MODEL{ AL 451 
ms 10. FORMAT (2084) a ; > a 92° 43) =*-L2, 2K, * LHODEL (4) =",12, 2K, *IRODEL (5) =" 12, 24, “ISODEL (6) =", 2, / BL 452 
i an ars er eR al aoe es sR 393 | U627E,* IRODEL (7) =*,12, 2X, * INODEL (8) 2°, 12,24, *IMODEL (9) =* 12,21 ¢* INO AL 453 
pare c , 2 oO ee ean. fo > aL 394 WEL (10) =" ,11, 2X, *LMODEL (19)=",11,/,274, "IMODRL (12) =" ,11,2X,* IRODEL ML 454 
f a “MEAD (1DS,11) &,5,RH0,G6,2T : ce SOSA RS ee nae "Ag BL 495 (19) 89,01, 2k, *IRODEL (14) =* 11, 2K, ° IHODEL (15) =* 11, 2X, * LHODEL( 16) =° AL 455 
ie . UU FoamaT (110,4D15. 8) .- s BR. 396 VeKUo/ 27K, SLMODEL (17) =*, 21, 2%, *IBODEL (18) =*, 11,24, "12 (1) =*,12,2K,! AL 456 
ae 2? @ a a AL #397 ER (238 12, 2K, LP (3) =" 12, 24,9 TP (4) =" ,12,/,27K, "TP (5) =", 12, 2k, 9 IPE aL 6457 
O84 T=1,8 . SMa kay Ge: ont rg. 3, ie aL 398 (V6p = 85 122K, SEP (7) =", 12, 2K, "IP (8) =" 12, 24," IP (9} =", 12,2058 IP (VOpe*, aL 454 
-¢ ae _ a PS a L399 PLR, 2K, LP CVI) =" Lt./ 27K, SLE (42) =9,11, 2X, °1P {13)=* 11, 2k, "TP (1s) =* BL 459 
E ie ‘ . . a a GL 400 MTU, 20,0 TP (15) =" 21,20, ° TP (16) =", 21,2%, "LP (17) =*,11,2%,°1P (18) =", I HL 460 
a So BAD IDS, 12) TIAE (I), PU(L) ,P2 (2) 83 (I) P4 (Ll), 25 (POEL) ET UL) PS Si 401 V1)» AL 461 
eee wax > am VT) PI(T) P10 (1) PUVEL) SP12(3) oF UZ(Z) SEVN(T) | - : SL 402 WRITE (JURITE, 19) (E,AP(E) IL ,UGT{L) »E CRAIN (I) ,1,CAMAX(1) .L=1,13) ML 462 
t eg ss $2 FORMAT (3D25. 163 ae a Od . SL 403 _ +9 PoRMAT (19K, °AP(* 12," )=*, WOU. 7,24, UCT (*,125")=*, IPDII.4, 2X, *CR aL 6463 
ae ek, ee ae ee ~ pee ML 404 ‘VALE (? 12, °) =", 1PD13.6, 20, "CRAAK(* 12, °) =", 1201326) aL 464 
i te gel eae as a - + BL 405 WERE (WRITE, 20) AL 465 
et oes ‘ Takin i, ea aBanatigd. ” Boe San Diiaiviah Go ie NO Sie OES . ML "06 20 FOAMAT (11,7, 18X,95 (°-*}} . SL 466 
| eet, sh | | AL 407 EP (W2TRIC.WE.O) GO TO 22 AL 467 
Cees TEST FOR TWCREASING TIME es | ey]: ) WRITE (3WRITE, 21) S,8H0,GC,TT i aL 46638 
oy ER EQ. 1p GO To ta ao ge eee ee ee Neh, MIS Rane: 2U FORMAT (12%,//¢38X,51('*"),/,38K,°*", 491,998, 7, 38K, 860, 19H WING ARE SL 469 
Ca BR (TENE (ED .GTOTINB (L-1)) GO TOG : aS aee BL 410 MAF 10,5, 6H FTS*2,20%,°%",/,381,°¢", 21H REPERENCE DEMSITY = PIO BL 470 
el Mee Bree (JWRITE,%3) 1 P etnGna teeth at, ot ; Ab wnt 1.6,008 SLUG/FTS0},71%,°¢°,/,38% 99° 31H ACCZLERATION DUE TO GRA¥ITI AL #71 
Be eee ek eer - - WD-FORMAT (1,77, 10%, "PROGRAS FOUND TINE VALUE = OR < TIME OF PRBEVIOU aL 412 NS P7646, 10H FT/SEC#%2, 10,969, /,390%,%°*, 39H TOTAL TEST TINE = «P10 BL 472 
3 ra Cae aaa -. 4S: POLMT AT PT *,13) - - ee | en 5 48,8 SECONDS, 121, °9*, 7, 38K, °**, 49,99, 7, 38K, 59(4 08) ) BE 72 
so. ee om see GO To 1 - ? Ea — BL at GO TO 24 BL 474 
Cre oe 1 CONTINTE. MR 45 22 SHR=S*0. 304800002 AL. 475 
it ie ene ey te + ©#8* THESE TWO COMMENT CARDS ARE SUPPLIED SOLELY FOR THE USER TO USE AL 416 RUCH=RHO*S 15.3600 j “LL 476 
; wd A eee AP HES CONVEMIEMCE . AL 417? GXER=G°O. 3048D0 4 ‘AL #477 
GO. > 
Cate Pee ee 
, Be ; 
ee : oe ee Cae Oe. - pizeieant sie oe , Sees | at ae - . whe wR 
iu Sues +f pase ae A ae fe oa we 2 : : Barisarensy : : . : A i . ‘ | 7 Be ag ee ee : sigaaetl, a « atansheten z & pectenart T aca te %. tee 
oe seine i oe ig ‘ ar are 7 
me ane 
be 


eee 
CU peta cas Cfo ee ot pee tte betes oe - tetwe 2. t WS carte og fe E. 7 4 . 
ve By Be err’ te > + ae nea SE oe fo Sha OE fue ® fo oge tae eo 


eae : ‘ : : ‘ : . : z. 
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aL 478 stutencenaruee,#i,#1*,3%, 12UACCELEBATION,8K 49" ,/,62,00%, 190,04%,68 AL 538 





@RITE (JWRITE, 23) Sia, SHON, GIA, TT BEARS » 93 * 3s 
23 Mae eee aBK SU CTO") o/538K,' Oe g4IL, tte Fe IUKe tees L3H MENG AOE Oe 8790 Tou (SECS) ¢ 2X54 4%s3K, 12H ESLOG/ETCOS) g 8K 64% o4Ke I (RADIANS) 26%) fo? aL 539 
SPA =e #1105, 9H 8962, 20X,°¢* -/,38K,¢%*, 21H REPEREMCE DENSITY = ,F 12. ALD OT | | re Ie 7d DEGER) 9 E98 bo ote VIM C(PT/SECCOZ) (AL 89 80/5 SKe" Ore 1K 1% e LIK! HL S580 
-10,8H KG/NOO3, BK, "6%, /_ 38K, 8%, HE ACCELERATION DUE TO GRAVITY = -f ML 481 EDaT Tere EST) OC Lhe) PO Ce) Sha eet ee a ak 54) 
18.4, 94 H/SECO#2Z, 14,988 4/2 38K, 649 ISH TOTAL TEST TIME = ,- 210.4, 8H S AL 482 po 35 1=1,k — aL 6582 
TECCUDS, 120," / 4 38K, 88 49K, 99? fe 3BK STO) AL 483 35 WRITE (JURITE, 36) 1, TIME (X) oS CL) o76(L) oP? CE) BOUT) ai 86543 
i ceee CHECK FOR IWITIAL INPUT AND MODIPLED LWEUT PRENTOUT nL «464 36 PORNAT {6X g4 Oy Me hde Ihe! b%eOKaPTe 3, SK" h* OE, PIG.8, 5K sth! SE SETI. AL 544 
i 26 IP (IBPUT.NE.0) GO TO 47 ML 465 WME eth ty Me PSo2,6Ke bY Hh EIS 680° 9") aL $485 
; 25 IF (WETBRIC.NE.0) GO TO 28 . NL 886 WRITE (JURITE, 37) AL 546 
f IP (1S¥.EQ.0) WRITE (SWKITE,26) LPRG . a 64467 37 FORRAT (OK, 8S8, TISK OO /e 6K, TZECP ODD aL 547 
I. IF ({1SH,NE.0) WRITE (JURITE, 27) LRG WS AL 48s WAITE (JURITE, 36) aL. 548 
26 FORMAT VTE 7p BILOBA OE) y/o BUH eS GOK OF e/g TUNG 1 88 g 2K ee TEL ETRY aL 6489 38 FORBAT (6K 808 V2 eb ee TORT NY 22K oN TOK SNS WSK ET TIE el be tee aL 549 
f. 1 ENPUT DATA (FOR PROGRKAN OOP O8 Te th ty WRK ot Bh /edth 69% 66E, 88 4/ AL #990 Both, WL, 88 /ebKe  O%e Hh, TOHDATA POLUT, 1X, 9 hee SEMMTIME, IZ, 15 VK, GL $50 
MT aB E88") /a6Ks AZIATS) of 6K e80eo VSM ADT eE L's Oke Ee ieee aL 493 TZOHARGLE-OF-ATTACK BATE, 1X," ¢, UX SHALTITUDE, 155°) %, 18, VSWALTITUDE aL 551 
be 49, 19% bee WIL O88 /e6keF? AK, WOHDATA POINT, Ske" h! pPXQMHTINE,OX,*%) AL 492 ¥ RATE, 1N,°)%, 1K, VUHALT. ACCEL. UX, °§*, 18, 2HVERT. ACCEL. ,1%,°¢%, 1K ML S52 
B 1° 6K, OUMBIGHT, 7X44 * 3X, VHPITCH AWGLE,SK,*t', 4a, 1OHPITCH BATE,SX, AL 4393 1, 1HHELEV. DEPLECTs 5 Xp "8", /e6L e288 y V2Ke9d" g 2K ,6H (SECS) 42K 5! 1) o5Ket AL 553 t 
| aoe ee LERSPEED OL 5% 0%, /26Ke°0" ¢ 19H, "1% sO, 6H (SECS) «7 Koll o Peet aL 494 13a (RADEAM/SEC) gSXe°h ' -3Lo4H (ET) 3K, 91" SE, BH (ER/SEC) » Ks 1%, 1KY VIM SL 554 
f ao ee a eee heua 98 (RADIANS), 61,015 53K 124 (RADIAM/SEC) 20%e 01 2420) AL 495 I {PT/SECOO2) g Wo? be 2K, VH(ET/SECOOZ) g 1X—9} 4e 3K, 9H (RADIANS) 0OKs! O's aL 555 { 
i Hane PTO REO) ON PR AL 496 eee tees DAK, Ete ROK be 22Le Ue VOK se No VSKet bee SF ot Ito MEST Lo! aL 556 i 
[ 190, 908, OK ts U19 Ede OD mL 497 16K,%O9 6K, 588, 199 (9-9) oO") aL 55? § 
; 27 FORMAT Leg BIE e6O (SE gp AT Est! 66K, Fo Ze BUSA Oee WHE RODITTE ML 496 WHITE (JWBRITE, 39) (Le TIME (ED ¢PSCL) oP MOAI) @PUUCE) ¢PUZAL) oF US CTD OF UN aL 558 i 
I. 1D DATA (FOR PROGRAS LOOPS! pLdg"] Me VPheh Oey fe STK st O% 06K 0% of e3ike aL 499 ¥(I) oT=1,K) RL 559 i 
[ i AEST TO) LIOR Od RSLS ete Be ee BL 500 39 FoRnaT (6X4 84 ML THU Ee? |g 2K KO De 2K y 1! SHOP 1Ze 925K 58 Ne EAS: S aL 560 4 
Lebo VI, Oh / OKs Oe 4X, TOHDATA POLNT Ske 8h %e TX,MHTIMNE, Bhat hb ' s6X, ML 301 . aH PSUR CET. 2eH ky Ey Ky EGe Ze SNe Ah T MEP OeZeMK oe! ft eA EGEBe Soke! aL 561 z 
WABLIGHT,7%.%4*, IX, VIHPITCH AWGLE, S¥e°§' 24K, TOHPETCH MATE, SX,%§%eS ML = SO2 1%) ML S62 t 
eT LASPEED GMs! © 5/,6Ks' 9% V9Ka" 1% 6X e6H (SECS) o Tet! a Yet CAD mL 503 WRITE (JWRITE, 40) ar 563 ‘ 
eee bX, J (AADEAWS) ,6%, 816 3K, 12H (BADIRN/SEC) 9 4X4 | o DNs OR ITAL ab 504 4&0 FORNAT (GNP Oe TZK PhS TOK! 22K GOH WOK UY ISLS SL AIG NYG TSE AL 5648 5 
’ VEC} PUMP TAOS RT CORTY Or OPE Std Co el ML 505 1,245, 16K, O86 fe GK, 121 q'e*)) aL 565 . 
WOE FOr, VII (tm %) oO) ML 506 Ip (EPATH.WE.O) GO TO 174 AL 566 “a 
Go TO 31 mL 507 5R (1SW.NE.0) GO TO 150 aie ess BL 567 s 
28 IP. (iS#.£0.0) WRITE (JWRITE, 29) LPaG aL 6508 'goO TO 47 : aL 568 ry 
IP? (FS#.WE.0) WRITE (QURITE, 30) LPRG A Me - Bk 569 ceee WRETE INPUT IW SI UNITS ¥ gL 569 4 
29 FORMAT TE e/ Yo INE ER(TO®) gfe BTKGO* OOK Fhe SeBUhy 088s L2ke METAL aL 510 wt po 62 L=1,K a. Leeann | emmy 1 | 
} IWPUT DATA (POR PROGRAM LOORE* LZ e "hoe WK et Seo /p DIK Oo Oks Oo e/ au «(541 WS=P1(1) °4.448200 - AL 571 - 
HES HEPEYCHUBPICT OR ELI CLT Oats CORPS Cod RCL RE Mat oe Beara aL 6St2 vs=@4 (1) 0.30480 aL «572 Ff 
18, 19K, bo 19K, OOF Oe Oe bE, OMDATA POLHT, SXe* hoo MMoMHTINE, GX, °4 AL 313 62 BRITE (JWBITE, 33) L, TIME {I} @WSoF2 (1) e FIT) ES aL 573 : 
1°, 6X, GHUELGHT, 7X, "4%, 3K, VEHPETCH ANGLE, 5X, °)*, 4X, tOHPLTCH BATE,5K, AL S14 WRITE (JURITE, 43) aL S74 , 
ee wAHALBSCBED GX 4? #*5/ 612°! 2 19% 0P1" GL, 6H (SECS) 27H 0* Le Oh ae AL 545 43 FORMAT (GLE 88 VISE 88% gf pOKgVZE COP) g/sOK p04 19S 8 18 4 19K G8 |S s UIE AL 575 F 
cr ee epous) o Ske! 1* 4X, 91 (RADLAMS) 56250 ¢ 3X4 12H (RADIAN/GEC) «0Ke7 88 30 AL 516 Lede UME he TI ehh 19s Oho / sb Ke 08 oA, LOHDATA POLNT, 5%, °4%,7k,4 BL 576 : 
ee i e-aieyed SRE RT Pee) OCR ORL Le el SL 517 VHTIOE, OX, 64%, 5X, THDEMSITY, 7X," bee 2K, VSUANGLE OF ATTACK, 2Ne°h" -4K,t ML 57? ? 
rea Ten Ty PLO al) PRR eee bene Cee BL 518 se RPERATURE, 4X," 1" ¢3K, S2HACCELERATION, 4X, *0* 6/,6K,° 0%, V9Ke 11 EE aL 578 ‘ 
ig 30. FORMAT To 77 DIK, BB (TON g Se ITN OE SEK 8g Se TN 108g UK RODE TE AL 519 WEA {SECS) ¢ 7s" 1°, 4K, 9H (RG/NOOI) -6K," | * 4K, 9H (RADIANS) Kp ° 18 eG Ne 08 aL 579 cS on 
1D DATA (FOR PROGRAA LOOPO* 12g") Sp VIKetOh e/a FIhstOt FEN Oe /e 3th ML 520 V{DEGAR) ,6% 0° 1 4K, 10H (M/SECOP2) SUG ep GLy Oro NILe Pe VIEe te 19 ai 5860 Py ae} 
no ee Oks TZT CT) of Kets o IKE LE TIES Ee OKs Le TENS Le CE nL S21 We he BOK ehh LIKES VIR ME of OKs ee VIT C—O) oO nL «(581 
Ve peg 1M: OOO, GK, Oe Mh, VOUNDATA POINT 5K, hs TkeHHTIME, GXe'h* e6Xe aL 522 po 44 1=t,K ML 582 hey ae 
{ ; IGHAEIGUT, 7Ko 9h Ik, VVHETTCH ANGLE, 5X, %)°, 4%, FOHPITCH BATE, 5K, %4%e9 BL 323 DS=F5 (1) 0515. 3800 aL 6583 oy G2 
cane 1K, SHATOSPEED, 64,08, /,6K,' 9+ V9Ke ho, EU {SECS} 7K," 9, 50, 9H (WENT HL 524 AS=FO (I) 0.304800 aL Se4 i =] 
poe aaa eet (teu, DN (RADIANS) ,6%, "48, 3X, 12H (RADIAN/SEC) Kat |' 20 heat AL 525 2K=5.000/9.0D0% (P7{1) -491. 72D0) #273. 1800 Ak 585 aw 
4m /Se2cp ETT PRT POLL or a a ML 526 by WRITE (JURITE, 36) L, TIME (I) -OS.F6 (E) »TK,aS Ast BRL 596 rete | fh 
aes Pe Bd bieke h ee BL 527 WRITE (JWRITE, 37) ai 587 ts 
: 34 te (METEIC RE. 9) GQ TO 41 aL 526 - —ePITE (JUBITE, 45) mL 588 ap) 
Eee: ty aie cess WRLTE LNPUT IN ENGLISH UNITS AL 529 45 FORMAT (6X98 OO, 2K e Ae TOK NY 22K Ne WE et hg WSS CL NIK e hls NOK aL 589 hey 
i po 32 t=1,K AL 530 Bethe 1, 89% /, 60,9 0%, IK, VOHDATA POLUT, 1X, °)* -SKeNMTINE, 3Ee°)* SUE, AL 590 Cl 
: -' 32 WRITE (JURITE, 33) E,TIME(E) oP UCL) cE2CT) FS CEP PAUL) ML 531 $2JOHANGLE-OF-ATTACK RATE, IN o" §'g WE, BUALTITUDE, 125° 1%. 1X,.13HRLTITODE aL 591 ae > 
ew 42° FORRAT. Led gt OF Kh Dg9 Ke" be gO GET: Te Ok oN eAK GE 10, My SK 4 Lhe Ke FV De BI. 532 x | BATE, 1K%,°)', UX, TSHALT. ACCEL. ptE0%4*, UX, 12HVERT. ACCEL.» Ue ht, AL 592 in G2 er 
be eg Wg SE EE HK BUC. Te Ske bY Deh bed sEKe?%*) ; GL $33 1, tHELEV. MEPLECT og Wo 8 **e/e6E ot! gA2Ke° 4! o2ks GH (SECS) 42 Ke 1% ¢SKel AL 593 baw by 
a WRITE (JHRLTE, 34) BL 534 ADH (RADEAB/SEC) g5%o°U", 1X, GH(SETERS) o 1X5 4)% AN, TH(R/SEC) «UNS! Lh ORs AL 599 WY P 
ee 34 PORRAT Led tee ALIKE OS /gG Ka TZU (TOE) of o6K ghee WK Gt Nts ASRS LG TE aL 535 © VAN {AySECO®2) o 198 Ufo 2K, VOH(B/SECO*2) o 26" 1% 3X, 9H (RADIANS) “OK e O° AL 595 in ng i 
Fe DoE ADE Lhe TIKS EN g 19K Oty / OE yet AK LOHDA TA POLNT, DXe8h tke 4 AL 536 ha ZoORe PO V2E Ghee LOL Fh 22H Te WOK Ne WSK ty VIKe td MEST Ys aL 596 oa) : 
pane MOTLNE, OL 6°, De THOENSETY 7X 091% 2 2%e DSHANGLE OF ATTACK, 2%,5)°,4%-17 ML 53? TTS PUPP) Pr Ld tke ee aL 597 : 
: ! 
ts 7M 
ae > 4 
yt eee t 
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1 RD Tap Pret atte tere enev rans epee ernment rer emer se ene ta eee ap Far a man a 


DO 4&6 I1=1,K =: 

HS=P10 (1) 90, 304400 

HDS=F11(1)90.304800 

-HDDS=F 12 (1) #0. 3048D0 

AZS=P13 (I) 0.304600 

WRITE. (JURITE, 39) I /TEAE(T) 099 (1) ollS, HOS, NDDS, ALS, F18 (1) z 
WRITE ‘(JUKITE, 40) 

CHECK FOR PROGRAS DIRECTION 

LP. (IPATH.NE.0) GO TO 174 


IP (35u.02.0) GO To 150 


CALL MODEL EXTRACTION 

CALL BODEL(K,LPRG, FIT, SUB) 

IF (1ERR.WE.0) GO TO 1 

CHECK FIT ERROR ee eee 
LF (LPRG. EQ. 1. WD. FIT (LPRG). EQ. 1.0D060) GO TO 1 
ISKL=1 

IF (LORG.GT.1) LJKL=2 

STORE BEST MODEL COEFFICIENTS 

CALL FITERA (FIT, LIKL, CEA) 

1 (LRG. WE.1) GO TO 49 

OETERAKWE AAXISUN PITCH AUGLE AND ANGLE OF ATTACK 
AMBAX=F6 (1) 

THAX=P2(1} 

DO 48 I=1,K 

ALPHA (I) =F6 (I) 


. THETA (1) =P2 (1) 


48 
cees 


Ceee 


Cees 
50 


Cees 
$1 


$2 
Cees. 


LP (DABS (F6 (I)) .GT. DABS (AM AX) } AMAX=F6 (I) 
IF (DAS (PZ (I)).GT. DABS (TMAK)) TAAX=F2 (I) 
CHECK FIT ERROR 

IP (PET (LORG).LT.FITOK) GO TO. 50 - 
CALCULATE BIAS IN ANGLE OF ATTACK 

CALL ABLAS (K,LOERG, FIT, ANB) 

LY (TERR.WE.0) GO TC 1 

UPDATE RATES FOR COMPATIBILITY 

IF (LUP.EQ.0) GO To S1 

CALL PML (K,22, TIME, &3, DUB, 1,15,3,0) 

CALL PNI(K,F6, TINE, £9, 0UN, 1,15, 3,0) 
CALCULATE POWER, ORAG COEPEICLENT AMD LIFT COZPFICLENT 
SD2=S/2.0D6 

CALL CHNGE (SGN) 

DO 52 I=1,K 


aces i am eae ee 


aL 598:- 
BL $99 
aL. 600 
aL «601 
al 602 
aL 603 
BL 604 
AL 605 
BL 606 
SL 607 
RL. 608 
aL 609 
BL 610 
WL 614 
ML 612 
aL 613 
AL 634 
BL 615 
AL 616 
AL 617 
AL 618 
BL 619 
BL 626 
AL 621 
SL 622 
BL 623 
AL. 628 
BL 625 
SL 626 
aL 627 
ML 628 
AL 629 
AL 630 
SL 631 
RL 632 
aL 633 
SL 634 
AL 635 
NL 636 
AL 637 
SL 638 


PURA (EP SCHR (NV) ACER (2) OPS (I) SCENT OCPA (3) OPS (I) SFE 2eCPN (NY OPY(I) SSE AL 639 


UKRIOCEN (5) SPU (I) SHEN 
AS=P6 (I) 
‘IP. (Po (1j -LT.0.000) CALL SIGNS (SGU, TEK1,LEXK2,[EX3,LEK4} 


AL: 640 
SL 641 
AL 642 


CD (Ip =CRN(6) (CPM (7) SGN (1) CANSOLEX 26CPB(G) ©SGH(2) CANSCOIEX2¢CFN(9)*® AL 643 


TSGM (3) CAMFO FELICE (10) SGM (Up) FANOPL ENG 


AL 644 


CL(Lp= =PU(I)/ (SD2¢E5 (1) FU (1) ##2) ¢ (DCOS (F2 (1) FG (L)) PM (I) © (FS (1) -F AL 645 
“V9 (L) )/G-DSIW (PG (Ly #TTA) CPWRA(T) /(B4(T) OP 1(E) )) 


EF (PO(I).LT.O.CSS! CALL CHNGE (SG) 

Ip (PUT (LPRG) .LT. £1TOX. AMD. LBP. EQ.0) FTI (1) SDARSLO (792 (1) /P4 (L)) 
COWTLNUE 

CHECK PIT EWROR AND BYPASS CODES 


EP (ETERNAL NE.0) GO TO 187 


IP (PIT (LERG) LT. PITOK.AND.TUP.EQ.0) GO TO 70 


Ie (PLT (LPRG) LT. FITOKAWD.IUP.UZ.0) GO TO 178. 


 Cowe 


IF. (LeSS.NE.0) GO TO 180 
LPSS=1 
CALCULATE FLIGHT-PATH ANGLE 


po 53 1=1,K 


Ba pace Het 
Ape wae 





AL 686 
aL 687 
AL 643 
ML 649 
SL 650 
SL 651 
aL 652 

- 8L 053 
“RAL 654 
BL 655 
AL 656 
Ai 6657 





53 Pr 1 (1) =DaMSEe PTT (1) /P44E)) S 
Ceee CALCULATE FLIGHT~PATH-ANGLE BATE OF ‘CHANGE 
CALL FUI(K PT1, TIBE, FT2,008,19,15,3,0) | 
SET UP LEAST-SQUARES COEPPICIENTS FOR 1/3 eouge TEks ’ 
DO 58 I=1,K 
CL, 1p =DCOS (FPG (Ip eT Ap / (PU (Xp ORS (1) ) #4 (Zp S90. 3333300 
C(L, 2) =—-F5 (I) FSOre (1) **2/(2.000%F 1 (1) } 
C(L, 3) =C (12) OF6 (1) 
C1, 4) =C (1, 3) *F6 CI) 
C (1,5) =C (1, 4) 9 P6 (I) 
C(I, 6) =C (1,5) *F6 (ft) 
58 KEI, 1) 2F8 (1) /GeDSIM (F2 (1) + F6 (I) } 
C*es PERFOSA LEAST SQUARES 
CALL LLSQAB(C,E,K%,6, 1,450,450, 15, WKAR, IER, JURITR) 
IF (LEB. EQ.929) WRITE (JURITE, 55) 
55 PORMAT (4K,//,10%, ZERO HATRIXZ ENCOUNTERED I Least SQUARES. 
VEXT DATA SET, IF ANY.*) 
iF {TBR EQ.129} GO TO 1 
DETERALWE FIT ERROR 
TuFrx0.0D0 
00 56 I=1,K 
— EMFSDCOS (PE CI) eTIap (XK (1, Up OFS (2) O80. 3333300) 7 (PI ( Lp. OPN (1) DCR SET) 
POSOre (1p *927 (2. 0D0SF 1(1)) (KE (2, 3) ON (3,1) OF G(T) OX (4,1) ORG (I) OPE (I) e 
125, Vp #6 (1X) PG (T) PG (1) +X (6, 3} CFG (LE) FPG (L) SFG (1) ORO (I) ) €P8 (I) /G0D 
“WSIM(P2 (1) -F6 CE} ) 
56 TMF=THF+KNESINE 
Cee¢e WRITE COEPPECIEMTS AND FIT ERROR 
IF (METRIC.NE.O) GO TO 58 
URITE (JWRITE, 5ST) (QE, 1). F=1-6) , TUP 
$7 PORMAT (1K,//_, 731,106 09.2") gfe 13E gto ty BONE, 86 8g fa VIL, "2 *,~ UGK, * IMITI 
TALIZATION OF COEPPECIENT CONVERGENCE SCHEAE BY 4/3 POSER AGDEL*,19 
xX,*. are are et ee CL UGU Tate Se VIN gt a te VK, * FORM: ©, 21,°R = *, TPDI2.5,*¢ 
WOOT S99, FAK 8 a8 fg BIN tag WEK 8 gg 1 9K W829, BX, I CD= *, IPDI2Z.5,° ¢ 
1 *, OPpt2.5, "Os ¢ § a tEDi eos ttre * ©, 0PDt2.5,*taee) «¢ *,1PD12.5,* 
‘yopeoue, 3x," ! Le Vike ta®y hea a fot Ike*e* VOX, 'WHERES Vo = ATARSPE 
WEOCPT/SEC) * 66K, ° 0% 4/e V3Ks® «*,18%,°A = ANGLE OF ATTACK (RADIAN) *,59 
WE Set ge (IK, 1 §, VOHK,*. ae PIT ERROR = °,016.9,75%,%.",/ 23 
autores (hae Out eat ee) 
GO TO 60 
58 CRi=K €1, 3) &1.3558380-3 
WRITE (IWRITE,59) CR1, (X{I,t) I= 2,6; ,THE 
59 PORMAT (1X,//, 13%, 106 (*. Oh Je VIE et ah HORE ate fe AIK, *e* ISK, IMI 
‘VALIZATLOM OF COLPPICIENT COMEREGERCE SCHESE. BY 1/3 POWER AODEL* ,19 
WE te MoS e VBE go MONE ef yf gl Ih an gh, PORRS*, 2K, RP = , 1PD1z. 5,98 
1VOO1/ 29. 73K,9. 867, UBNy Se 8g TUX, oo fp BIN eo? OK, OCD= sciputecact ° 
1 * 1PD12.5,°04 ¢ ©, tPDI2.5,*¢aee2 ¢ *, 99012.5, * OAS) © ©, 2PD12.5,° 
Woaeege, ax,*. So Ze tHe he!  VOUK S08 s/o 13K, %.*, 10K, *WHERES ¥ = AIRSPE 
VEDEM/SECH *,66K,%.%,/, U3K_%e* VUE, 9 A = ANGLE OF ATTACK (RADIAN) "59 
UK tae VIE 8 n * VON oe 8, /gt3k,*. PET ERROR = °,D16.9,75%,%.° 4/513 
105°. 10UX, "2", 7, 13K, 106 (90 °)) 
60 CEI=2 (4, 1) 
Ceee CHECK FOR FURTHER LAPROVERENT 
IP ({TME.GT. (S*PFIT(LERG})) GO TO 72 
COAPUTE LEL&T COEFFICIENT BASED OW 1/3 POWER HODEL AnD EXTRACT WEY 
COEFFICIENTS UNWTIL CONVERGENCE 
“ITER=0 
61 00 62 I=1,k 
W=F1(I) 
V=P@(E) 
g=F5 (1) 


Cee 


TO w 


Coe 


coee. 
ceee 





aL 
aL 
OL 
aL 
aL 
RL 
aL 
AL 
AL 
aL 
aL 
al 
al 
ai. 


aL 


aE 
aL 
aL 
ak 
aL 
BL 
AL 
‘OL 


AL 


aL 
aL 
OL 
aL 
aL 
AL 
gL 
SL 
aL 
AL 
AL 
aL 
RL 
BL 
AL 
aL 
AL 
aL 


aL 
SL 
AL 
AL 
ai 
BL 
AL 
AL 
AL 
BL 
aL 
al 
AL 
AL 


AL 





658. 


659 
660 
6612 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
679 
679 
680 
661 
682 
683 
684 
685 
656 
687 
688 
689 
630 
691 
692 
693 
69% 
695 
696 
637 
698 
699 
700 
71 
702 
703 
704 
705 
706 
707 
7038 
709 
710 
711 
T12 
713 
Fte 
75 
716 
77 


pare tee eal 


a 
a. 


rae 


Bs 


Kee See ee eee 


cage hae ate 


ae 


29: 


in 


Sais BEST 





<a. 


& 
fi 
& 
$ 
4 
4 
i 





ee ene 


as ty 


Same ts, 


ie) 
iw ee 


se se aA a: 


oe 
a 


fone nish Ey 


SRA ar pate eo th aie Ce 












et ahd Sete es 





Ley 





a=F6(I) ; 


 DV=F8 (1). 


AD=PUT(EE - - 


OUM (L)=2.0D09H/ (GeSemee) © (PE2 (I) *GeDCOS (FT 1 (1) ) /¥-GODSIN (AeTIA) SCP 
310¥680,33333D0/(ueveN)) = e re Bs et ieee coche pslale*s 


C (1, 1) =DCOS {AeTLA) 7 (W8¥) 69600. 33333000— 
C (1,2) =-BeSevevy (2.0000 
C (1,3) =C (1,2) *bUS (1) 


- CUE, MY aC (1, 3) *DUR GT) 


62 
Ceee 


BT, 1p=DV/GeDSIm (F2 (1) -F6 (I)) 


 STOM@E VALUES FOR COMPARISON 


1? (ITERLEQG.0) GO To 63 


“ SeU=cerl 


SU2=CR2 
SX3=CF3 


: SKW2CKe 


Ceee 


63. 


cree 


PERPORN LEAST SQUARES 
CALL LESQAR(C,X,K,4, 1,850,450, 15,bKR8, TER, JUBITE) 
LF (LE@.EQ.129) WAITE (JWRITE, 55} 

IP (IER.EQ.129) Go TO 1 
COMPETE PIT EBROR 

TSX=C.000 

0O 64 I[=1,K 

W=P4(1) 

V=F4 (Ij 

R=F5(E) 

A=F6 (1) 

DV¥=F8 (I) 

HD=P11(1) 


ESE=DCOS (A+TLA) OK (1 1) #090. 349399007 (HOV) - (ReSe Vey (2.0D00K) © (xG2, 
V9) OX (30-1) SDON (1) 6 (4, 1) ODOUR (Ly COUN (I) ) DY/GeDSTU (PZ (I) 


€% TSH=TSX¢LSKOXSE - 


Cove 


C#ee 


AT (25%,83 (9.2%), /¢25K,%.*%, 39K," 
PA 72sket AM, EARLE SL ttc ee COEPF 
SICIEMT CONVERGENCE ITERATION 8*,12," . *,3PD16.11,32,0PDIH.15,* .* 
¥,/.25X,". WUNBER OF COEFFICIENTS PASSED =* ,52,9%,%. 
VUPDIB.21,* .*,7,25X,%. PET ERROR = *, VPD20.73,6%,". *, IPO. 91,3X, 


TEST FCA CONVERGENCE 

IF (ITER.2Q.0} GO TO 68 

LLL=0 

IF (DABS (SX E-X (1, 1)) LT. 1400-06) LLL=LLLO1 
KE (DAHS (SX2-X (2,1)} LT. 1.00-06} LLL=LLLO1 
IF (DABS (SK3-XK (3, 1)) LT. 1. 0D-06) LLL=LLLo1 
IF (DABS (SXU-XK (4, 1)}.LT.4.00-06) LLL=LLLO1 
@RITE COEZPFICIENTS 

IF (SETRIC.NE.O) GO TO 66 


WRITE (JWRITE,65) SKI,E(1,S) ETERS SK 2, (2,1) LLL, SH3,4 (3, 1) ,TSK,S¥ 


V4, (4, 1) 


W1RD18. 91,8 29,7, 250,83 (82°) 


GO TO 67 


66 PO=S5xX1¢1, 35581980-3 


PET, 10. 35582eR: z 


‘WRITE (JWBITE, 65} bu, PU, PETER, SK2,K (2.9), LLL,SY3,X (3, 1) ,XSX,SK4 


1,4) 


67 IF (LLL.EQ.4) GO TO 70 
68 ITER=I1TERG1 


IF (ITER.GT.20) GO TO 70 


CPX (1,1) 


CE2=xK (2,1) 


CP3=1,3,1) 


~P6 (T))) 


*,80,*PAST* ,15X,*PRESENT®,7XK,° 


*, UWOS.11,I2, 


Tis | 
eit) 


720 
T2t 


oe re 1 


723 
724 
725 
726 
727 


728 


423 
730 
731 
732 
733 
734 
435 
736 
737 
738 
3393 
740 
Fal 
782 
743 
Tae 
7&5 
746 
a7 
748 
Tag 
750 
751 
752 
753 
754 
755 
756 
757 
754 
759 


766 


761% 
762 
763 
764 
7905 
766 
767 
768 
769 
770 
WM 
772 
773 
F74 
75 
776 
777 


LA! 
cose 


72 


73 


Cee 


vi 


Cee 


75 


he es 


oo gsimieweergt 


CFU=K (4,1) . . 
URITE (JURITE,69)--—-— 


FOanaT (77x,*. TALE OLE ae) OLY Le *bo/eTOE,*. oof eth ,% et) 


GO T0 61 Peo Ma be 

TF (CET(LERG) LT. PITOK) Go to 72 

DO 71 I=3,K 

CL(Iy=DUa (1) 

OBTAIB INITIAL BSTLMATES OW LIFT COEFFICIENTS 
INTST=0 | 

EXFX=2.0D0 

GO TO 86 

Intst=4 

CALL LLSQAR (C,E, KN, 1,450,650, 15, MKAR, LEB, JURETE) 
CP (T2R.29.129) WRITE (3ueItE,55) 

IF (LER. 2.12%) Go To 1 

IMETEALIZE LEAST-SQUARE-DISTAUCE CORPPICIENTS 
LuTetT=0 

GO TO 104 

KMTET=1 

AL (1) =CFR (14) 

AL (2) =CFA (12) 

AL {3) =CFR (13) 

AL (4) =2.000 

HCLO=CPB (14) 

PRINT. OUT ESTIMATES ; 

WRETE (QWHITE,75) (AL (I), 1=1,4) ,CPM( 14) 


FORMAT (1K,///,48X,"IWITIAL ESTIGATES OF Lirt CORFPICI guts 
‘VT, *CLAO=*,D23.16,/,53K, *CLA $8.0 230165 /.53E ,°CLAE#*.,023.36 5/5325 °2: 


TEPX>* 023. 16,7,53K, "CLO =",D23.16./) ; ~ 
CHECK LEPT FUNCTION CODE FoR DETERAIMATION OF NUSBER OF GUKNOMRS 


ceee 


WENLLS (NTH) 


Ie (ACLUC.NEZ.0) W=NLSO(ATHS 1) 


Ceee 
76 


77 


Cees. 


78 
Cees 


73 
86 


cese 


8 
Cees 


82 


Cees 


IT? (MCLCC.EG.0) GO TO 87 


ALJUST CL°S, IP BECESSARY, FOR PITCH RATE DEPENDEWcrY 


ir ((STH.EQ.0.08.ATH.EQG.2) OR. ATH.EQ.%) GO TO 78 
DO 77 I=1,K 

CL (1) =Ci(L)-CPN(19) ©P3 (1) 

GRDER DATA FOR DETERAIWING LIFT COBPPICIENTS 


CHECK FOR NEGATIVE OR ZERO xe'S 
JJ=0 

DO.79 [=1,K 

IF (X2(1).GT.0.0D0) Go To a0 
Js<sset 

¥A=K-J0 

IPF (KN.Ey.K) GO TO 83 


STORE VALUES FOR LATTER COMPUTATION 


DO: 8t L=1,J30 
WKAR (I) =X2 (1) 
WKAR (L633) =x¥ (15 


ADJUST REMAINLNG “OLNTS FOS. LEAST-SQUARE DISTANCE 


DO 42 I=1,Kn 
MPCLp=x1 (Jae) 

N20) =x2 (Jed) 

LA=0 

PERPQRA LEAST-SyUARE-DISTASCE FIT 

CALL LSD(X2,X1, KA, AL, MN, GRS,LA, TERR, JURITE, ATH) 
EF (LA8.WE.0) GO TO 84 

1cp=1 

CPA(11)=aL (1) 


eff e D38 


aL 


778 
779 
730 
781 
782 
783 
rit) 
7as 
706 
7387 
788 
789 
790 
791 
792 
793 
794 
795 
796 
397 
798 
799 


aot 
802 
803 
804 
405 
806 
807 
308 
809 
8190 
B1t 

u12 
813 
B14 

81s 
816 

87 
818 
8t9 
820 

821 

322 

823 

825 

825 

826 
@27 

$26 


829 


830 
831 
832 


833 


834 
635 
636 
837 


Sane 


OC 
2 
*o G2 
ores 
ee: ea 
ii 
eee ae. 
Foe shee 
eee, 
eS 
“J tA 





gepeeae ete 


ee, SEP ASA EES Ae 


Sle mee an 


PE le 


Coat Re 


tee, $4 


--t yee 


ae a 


ee 


ote ae et cages ke yay 
aaah Rarer bn 


we AE. 


ret gmt eg oy ce a eee 
aa arya ET 





FoF ad Soin TLR ceca yee vane 


faerss, 





tet thin tebe oe om oot cade Seats oe 


as 





Ceee 


CFA (12)=aL (2) 
CPA (13)=aL (3) ) 
EXPA=AL (4) | . 
COMPUTE INTERCEPT 


_ EP (3J,EQ.0) GO To 114 


Cove 
84 


65 


Cees 


- OT. 


YCEPT=WKAR (J3¢I5) -CPR (12) SUKAR (JJ) 

GO To 114 ; 

DEFAULT TO LIWEAR LEBST-SQUARZS FIT 

EF ((ATH.2Q.0.0R. ATH. £Q.2).08. OTH. 20.4) GO TO B66 
DO 85. [=1,K 
CL (L)=CL{1) +CPA (14) 683 UL) 

N=ULLS(HTIEY 

PERFORA LINEAR LEAST-SQUARES FIT 

ATHPT=NTHe I 


CCl, ¥)=1.0D0 


89 ) 
O40, 3psP3 
“ GO TO 9% 

C{i 2p =F6 (1) 


90 


gt 


GO TO (88, 89, 90,91,92,93) ,MTHPI 


C (1,2) =F6 (I) 


GO TO 44 
C(1,2)=F6 (i) 


C(I, 3) =P6 (1) e*espr 


GO TO 94 


CL, 2p=F6(E) 
CCL, 3) =F6 (Lj P*Erex 


~ C(L, 4) =P3 (1) 


“92 


43 


94 


' GO To 94 


CU, 2) =P6 (1) SoEKPK 
GO TO 94 


C(L,.2) =F6 (1) © Exps. 


CL, 3)=F3 (1) 
K(T, 1) =CL(1)} . 
EP (LWTST.EQ.0} GO TO 73 


| (Cb= 


96 
-97 


‘98 
GO 
wT 


Ww2 


-. G9 TO 403 
9S 
os $0 102 T=1,K 


EXPK=2.CDO 


C(t, 1) =1.000 S 


GO TO (96, 57, 98,99, 100,101) -ATHPL 


C(r,2)=F6 (i) 

GO TO 102 a 
CL, 2)=F6 Cr) ee ae 
C(L, 3) =F3 (1) ' 
GO TO 102 

C (1, 2)=P6 (I) 

C(L, )=P6 (1) *F6 (1) 

GO-TO 162 

C (£,2)=Fo (1) 

(Lb, 3} 5F6 (1) *P6 (1) 

C(1,4)=F3(T) 

GO TO: 102 

C (1,2) =P6 (1) #P6 (1) 

GO TO 102 

C1, 2) =F6 (1) P6 (1) 

C(1,3)=F3 (1) 

K (1, Up=CL(F) 

IF {{NTST.£Q.0) Go to 73 
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AL 
AL 
aL 
AL 
RL 
aL 
AL 
aL 
aL 
aL 
AL 
AL 
aL 


AL 


BL 
aL 
aL 
aL 


AL. 


AL 
AL 
SL 


AL 
aL. 


aL. 
AL 


AL 


aL. 


SL 
AL 


aL. 
aL 

AL. 
aL 
aL 


aL 


AL 


AL. 
AL 


aL 
AL 
AL 
AL 


ai. 


AL 


aL 
AL 
aL 
NL 
AL 
aL 
aL 
AL 
AL 
AL 
AL 


318 
839 
840 
8el 
842 
64) 
Sus 
ous 
846 
8at 
844 
8489 
850 
851 
852 
353 
854 
655 
836 
857 
858 
a59 


860. 


861 
862 
863 
364 


865 


866 


867 


668 
469 
870 
a7t 
4a72 


372. 
are 


a75 


“376 
ar? 
a7a 


379 
880 
884 
842 
453 
Au 
‘HBS 


886 


dT 
888 
839 
890 
89) 
092 
893 
B5u 
895 
u96 
897 


page om ee we Bien - Oo 
3 - ¥ als % ae ae UPS ao . 
ea a a tele. ae eens eee el 


icb=3 


1037 CALL EE CAR (Ce KK oH y 15450 456,15, HKAR, TZH, SURITE) 


IF (LER.EQ.129) WRITE (SWRITE,SS) 
IF (1EK.2y.929).Go To 4 = ‘ 


14 CEN(11) =x (1,4) 


DO 405 [=12, 14 


WS CFN{L)=G.CD6 


106 
107 


mit.) 


109 


4 
an 
2 
eee 
113 
1%4 
15. 
146 
ws 
Cee 


Cees 
138 


119 


GO TO (106,307,108, 109,310,111) ,mTHPt 
CFA(V2) =" (2, 1) 

GO TO 112 

CPA(12) =x" (2,1) 

CPA (I4p=x¢2, 1) 

GO TO 112 : ! 
CFS(12)=k (2, 1) Ri Skt” cc Shand Oe 
CPR (13) = (3,15 
GO 70 112 ee 
CPA(12) =" (2, 1) 
CPR(V9) =X (4, 1) 

CPA (14) =K (4,1) 

GO TO 142 

CPS (13)=x (2,1) 

GO TO 132 

CFA (V3)=4 (2,1) 
CFA{ 44) =x (3,1) 

La=0 

If (LNTET.EQ.0) GO TO 7% = 
WRITE OOT LIFT COEFFICIENTS : 
WRITE (J#8I TE, 173) 7 


FORMAT (1K,//,481,*LIFT COEPFICIENTS: BY LINEAR LEAST SQUARES® 
16 1 Peden eV aoe ee game ea 


GO TO 116 
WRITE (JUBITE, 125) 


FORMAT (3X,//, 48K, *LIFT COEFPICIZNTS: by LEAST SQUARE DLSrances 


WRITE (JWRITE, 117) CPN (19) .CEA (12) ,CPA(13) .ENPK,CEN (TH) 


rOanat (53%, *CLAO=* ,D245.16,7,531, "CLA =",D23.46,7,53%, *ChaL=¢ 


116,/,54K,* EXPx=*, p23, 16,7.53x, "CLQO=",D23. 16.//} 

CHECK P&OGRAN DLaECTION 

LP (LPATH.KE.0) GO TO 156 

CHECK PIT ERROR 

TPX=0.0D0 

DO 123 L=1,k 

GO TO (118,120,321), ICD 

iF (F6(I).GT.0.0b0) Go to 119 

CLXSCEA (12) Fe (1) +YCEPTCHCLYOP3 (1) 

CEC) =CL(1) eH CLQOFI 1) an 

GQ TO 122 ne 
CLL eet SEEM C32) $F6 (1) CCEA (13) #Fo ET) CoE KE KOHCL YORI GT) 
CLI) =CL (LI) CHCLUSP3 (1) 


GO TO. 122 


120 
421 
122 
123 
tzu 
Cos 


Ctee 


GO To nag) CEM CNZD OFO AT) #CEM (13) #P6 (1) e#zxeXeCEN (14) oF d(T) 


GO ro 422 
TELL tay ee ge E12) 96 CE) #CP (13) #86 (1) #F6 (1) eCPM (14) OFS (I) 
KFX=CL (I) -CLX 

TEM=TP ACK FY exe YL 

WRITE (JURITE, 124) TEX 

FORMAT (S3X,*LIFT COEPFICLENT FIT ERROR= *,023.16,//) 
CHECK FOR A BYPASS 

IP (FIT(LPRG).LT.PLTOK) GU To 179 

IF (TNF.GT. (S*FLT(LPRG)}}) GO TO IWO 


READJUST ANGLE OF ATTACK BY NEWTON~RAPHSOM ON. LIET. EXPRESSION 


SCWP=0 
aad Lerc £,, 
3 gels 3 ‘ : 
ey > : ih 
$ beret eggy oo. ert $925 eure MR IR oe 


erate 


898 
099 
900 
901 
902 
903 
904 
905 
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907 
908 
909 
910 
911 
9t2 


913. 


91% 
915 
Flo 
917 
946 
949 
920 
923 
922 
92) 
924 


936 
947 
948 
49 
949 
3et 
4&2 
Yuga 
Sun 
945 
946 
947 
94a 
9u9 
3956 
St 
952 
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127 
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129 


430 
131 


133 


coe 


ae 
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(936 
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Bone eT Oe Sank 
es ads * Laverersii la | 7 a aoe ey 2 ee “4 ev 
DO 137 F=t,k 
1c ut20 
A=P6 (I) 
M2QIp=a - 
KUT) =CL (I) 
ICNT=ICUT+1 
GO TO (126,127, 124), ICD 
LF {&.GT.6.0D0) GO To 2? 
XXSCHA (12) CACYCERTOHCLOSES (E) -CLAL) 
KP=CFA (42) 
 xee=0.000 
: GO TO 429 
AX=CPA (11) #CPN (12) eaCPH (13) COeEAEL CEA (4) OF3 (T) -CL AE) 
 RR=CPR(12) CEXPXOCEM (13) CASS (EXP X-1.000} 
KPP=EXPXL* (EXPX~1, O00) ase (EXPX-2. 000) 
GO TO 429 
KK=CPM (11) oCPs (12) CAeCHA(13) RORECER (14) $P3 (I) -CL ED 
XP=CPA G12} ¢2%C RA (13) oA 
XPP=2°CPH (13). 
RAD= (KP/ZPP) & (XP/KPR)-2. ODO (xx/KPP) 
_ Alea. 
Ir. {RAD.LT. 0.000) GO TO 131 
Pr ((kPOLPP) LT. 0.000) GO TO 130 
 B2A-XP/XEPODSQRT (BAD) 
- GOTO 132 
B=A-EPs/EPP~DSQRT (RAD) 
GO TO 132 — 
A=A-1P/X PP 
- SCHTSACHTET 
GO. Fa 33 
IP [DABS (A1-4) . LT. t.00-15. “Gite ets kOe) so To 143 
GO.TG 125 
Pea =A . 
COMPUTE NEW Lret COEPPICTENT 
-. GO TO (134,135, 136) , ICD 
IF (4.GT.0.000) GO TO 135 
CL (Ip =CPA(12) SACYCEPTOCHCLOQOPS (I) - 
G0 TO 737. 
CL(L) =CER(V1) ¢CEN (12) #4eCRN (13) #AOSERPEOCE (14) #83 (1) 
GO TO 137? 
CL (Lp ACPA (11) © CER (12) TACCPA( 13) SACASCPM EVN) OPS ET) 
COUTINUE 
IPF (ACUT.WE.O} WkITE (JWQKTE, 138) ACNT 


138 


Cese. 


BRAN 


FORMAT (3%,7/,9%,94H"€® DURING WEWTON-GAPHSOS FOR ANGLE OF ATTACK 
TIM MAIN , ROUTENE WLSHED TO SEEK COMPLEX ROOTS ,13,7H TINES.) 
PERFORM MOCEL EXTRACTION 

CALL MODEL({K, LERG, PIT, ANB) 


EP (18RR.WE.0) GO To 1 


cose 


Cese 


139 
Cese 


140 


6y7 


1uP=1 

IF (BLT (LeRG).LT.PITOK) GO TO 50 

TES? POR INPROVERERT 

SX=€1T (LORG) 

CALL FITERA(FI1,2,CPA) 

IF. {PIT(LERG).£Q.SxX} GO TO 140 

REDEFINE AWGLE OF ATTACK AWD LIFT COEFFICIENTS | 
DO 139 1=1,K 

F6 (£) =X2 (1) 

CLT) =44 U2) 

PERPORK FPREQUENCY-DEPENDEMT CORRECTIONS TO ANGLE OF ATTACK. 
CALL ALPDEL(K, LO6G,MNB,PIT) 


me 


aL 
al 
aL 
aL 
aL 
AL 
aL 
aL 
AL 
aL 
aL 
aL 
@L 
aL 
aL 


AL 


AL 


AL 


AL 
BL 


aL 


iL, 
AL. 


OL 


OL 
aL 


al. 
AL 
OL 
aL 
AL 


SL 
AL 
SL 


AL 


ai 
AL 
aL 
aL 
ak 
aL 
AL 
AL 
AL 
aL 
AL 
AL 
aL, 
AL 
QL 
aL 
AL 
AL 
AL 
_AL 


MOTEL Meee 


we eh ttre 


95a 
959 
960 
962 
962 
903 
964 
965 
966 
967 
968 
9o¥ 
970 
971 
972 
973 
974 
975 
970 
977 
978 
979 
980 
9a1 
942 
983 
98a 
94s 
986 


ga7 


984 
98% 
. 9990 
991 
992 
993 
‘O54 
> > be) 
996 
997 
9938 
999 
1000 
1001 
1602 
1003 
1604 
1005 
1066 
1007 
1008 
100% 
1010 
1011 
012 
16743 
10 14 
1015 
10%6 
1017 


cranes 


n ete) ce al ~ he idee nae ae ae oe ed 

ees ey + epee agg ht wee, = i be Pepa ToS : Pye 
{F (22a. 8E.0) GO TO 1 

ceee CHECK FIT ERROR 
rue 

$00 If (PIT{LPRG).LT.FITOXK) GO TO 50 

C#ee IFNTZRAZDIATE PRINTOUT OF POWER, DRAG, AND LIFE COEPFICIENTS 

WRITE (JURITE, 242) EXV,EX2,EX3 ELS LEXV,TEX2, LENS, LEEW, LLP ek 


WO2 FORMAT (UK GSS 6 268, TOO ESD of 5 1OK a8 / 4.9 98480 be Safe SOEs * /%*,96K,* | 


test f, 164 ,9/8* 2, *INTERBEDIATE* S82, °GEWERAL EXPRESSIONS FOR POUER 
1, DRAG COEPFICIEWT, AND LIET COEPFICIEST®, 94,°4/*%,/_ 16K,*/9*, 96K,° 
VOS! 5 10K 5 8/88 96K O/ 96 /S, NOK, 9/9", 3K," = PO © PlEVeo? ,1PD12.,5,° 
Ve P2eyee?, $PD92.5,°% ¢ P2IOVee"* TPDI2.5,° ¢ PUS¥ oes, 1PDI2Z.5,j0,'9/', 
We 6K e 8 / OF IGN OP a fs VOL e979" 20K, °CD = CDO & CDP%aee*,12,* & CB2 
pokoe® 52,% © COIFAFO*, 12,% ¢ COUSAOOS 12, 20K,*F/9,/, 16K,°/4*, 96K, * 
N88 fe 16,8789, 29N,"CL = CLAC ¢ CLAPA ¢ CLAX eae, 1P012.5, « ¢ CLye 
URE 2UL, 80/06 /o 16K 58 /6* TEKS O78 0 /s WONG S/S" (ION, O/ 4 /, OL /0%, 3X, 
UMHEMES* BIN, 8 F7% 4 f, TOK, 5 /4* 96K ,°%/")} 
IP {METRIC.NE.0) GO TO 144 
WRITE (JURITE, 143) 

WW2 PORRAT (1GK,°/¢*, TIN, ¥ = AIRSPEED (PT/SEC) *,65%,°%/" 5 /, 16K, "79", 18 
UX," = ANGLE OF ATTACK (RADIAM)*,58Z, Pest /, 161, 9/7", 1k R = PITCH 
V MATE (BADIAN/SEC)* , 59K, 84/9, /, 16,5 /8*  FOK, FO /*) 

GO TO 146 

Wee WRITE (JURITE, 145) 

UNS: PORMAT {16K,°79*,150,°V = ALRSEEED{A/SEC) * ,66%,°%/*, 7,160,978" 03x 
1,%8 = ANGLE OF ATTACK (RADIAM) ®,581,°*/*,/, 164, * 708, 11%, °8 = PETCH 
IRATE (BADIAW/SEC) ©, 59K, 987", /, 16X59 /*, 960, 80/4) 

ee GO TO 148 
‘946 WRITE (JUBITE, 147} CEH (1) CEH (6), CEH (1T) CRN (2) -CFA¢7) ,CIN( 12) ,CFA 
e ¥¢3),CPN(8) CFR (13), CFA(4), CPA(9) .CPN (14) CPS (5) -CER( IG) 

‘3487 FURKAT (16K, 870", 9K, 8 RG = @,D16.11,32,°CDO = *,DI8.1t,3K,°CLAaO = * 

: VeDIB. 81, 9K O78, fe 16K, 9" IX, Ot = ©, DIG. 11,37, °CDt = *, 018.11, 56 
To*CEA = 9,D18.19,9%,°%7%, 7, 160,979", 9K,9P2 = *,018.11,3x,°CD2 = § 
1,018. 11,30 ,*CLAk = DUB. V1, IX, Os*, 7, EK, 8/9", 9X,9R} = *, VIB. 11,3 
17,°CD3 = © DIWB.UT,IN,*"CLQ = ©, DIB. 11, 9X9 8/%,/, TOE, 8/9? 9X, Pe = 
4°,D18.11,3%,'CON = 7 DIG. 31,3979 8/8 g/g 16K yg" /O* 96K, 90/8, /, 16K /! 
V9 C808) 78g fe VOR TOO (879) S/S) 

Go To 149 
148 PO=CFA (1) °1,.355818D-3 
PI=CPA(2) ¢1.355818D-3 
P2=CPN(3) ©4.355818D-3 
P3=CPN (4) 1. 355818D-3 
Pa=CFs8 (5) 1. 355018d-3 
WRITE (JURITE, 147) €05CER (6) «CPRE11 .PLCERCT) .CPR{1Z) oP26CPR{B) 6 
WH (V3) PS, CRAG) ,CFNGT4) 24, CRACIO) | 


Ceee WRITE OUT INTERREDIATE RESULTS 
-9as 5Se=t 
. GO TO 25 
Cees PERPORA PATH PERCORAANCE ASSUAING ALASPEED AWD ALTITUDE sIveu 
150 LPATH=EPATH? 1 
KN.1=K-1 
C#e¢. COMPUTE SPECIPIC FUEL CONSUMPTION 
$¥cz0.0D0 
00 3519 Y=1,KHR1 
¥=F0(T} 


: PX= =CFA(1) (CEH (2) ¥VSOEX T6CPR (3) VS*EX20CER (4) OV CCER 3¢CHN(5) ¥OCRES 
ASD SPC*SEC# CF U(K) PU (101) ) / (TIME (Le 1) ~TIME (1) SPX 
CSFC=SPC/KA1 

WRIPFE SPECIFIC eveL CONSUSPTION 

LF (@ETRIC.NE.O) GO TO 153 

RITE (JWRITE, 152) CSPC 


cése 


te 
7019 
9020 
W021 
1622 
1023 
1028 
1025 
10 26 
1027 
1028 
1029 
1030 
1031 
1032 
#033 
1036 
10.485 
1036 
1037 
1038 
1039 


1046 


1041 
1042 
1043 
1048 
1045 
1046 
1047 
1048 
4049 
1050 
1054 
1052 
1053 
1054 
1055 
1056 
1057 
1058 


1059 


1060 
t06t 
9062 
1063 
1068 
1065 
1066 
1067? 
1068 
10693 
1070 
1071 
1072 
1073 
107% 
O75 
1076 
1077 
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152 FORMAT (1%,////, 278, 30HESTISATED SPECIFIC FUEL CONSUMPTION = ,1PD2 AL 1078 Cose UPDATE LIFT COEPPICISUTS aL 1138 
10. 13,248 LBP/ (PT-LBF/SEC) /SUC6//) BL 1079 366 DO 167 T=1,k aL 1239 
GO TO 155° ~ eco | As 1: ) |) Sea WePe (I)... .... aL 240 
193 SCSPC*CS PC #4448, 200/4.35546D0 | BL 10814 PX=CEM(1) *CEN{Z) $VOCEKIOCFN(3) CV9SEEZ¢CES (4) 9¥ O9ER30CPN(5) S¥Ce RLS aL 10a 
WRITR (IWRITE, 154) SCSPC ML. 1082 to? CL(I)=(2. ODOR T(E) / (PS (I) O59 OG) © (PTZ (1) 0 FOCOS (FL 1 (1) ) /V-GOPKODS ML 1942 
$54 POBRAT (12.////,27K,20HESTIMATED SPECIFIC FUEL CONSUMPTION = ,VPD2 AL 1083 VAN (PG (Ip Oe TIA) s (FP U(T) OV OR) ) AL ¥203 
10..13,9H W/RW-SEC) AL 1064 GO TO 76 ML tise 
fhe 155. IP (CSPC.LE.0.0D0) WRITE (JURITE, 156) BL 1045 ceee DEFINE BEST PARAMETERS AL 1145 
7 156 FORMAT (1K./,27%,*SPECIFIC PUBL CONSUMPTION IS MEGATIVE OR ZERO. T AL 1086 V68 PIT(LPRG) =UaK (1) AL 1886 
a - 1 MEET DATA SET, LF amt.) HL 1007 CS FC=8RX (2) aL 1187 
ae Ceee TEST AAGMITUDE OF CSPC aL 1088 EXOK*MAK (3) ae BL ited 
IF (CSPC.LE.0.0D0) GO TO t #L 1089 DO 169 1=1,18 ML 11489 
IP (CSPC.GT.G.4D-06) CSPC=0.4D-06 BL 1090 Y69 CRA(T)=0RK (04) HL 1150 
IP (CSPC.LT.0.4D-07) CSFC=C .4D-07 Hc 1098 0 170 L=1,K 2 ML 115% 
. IP (METRIC.¥E.0O) GO TO 157 WE 91092 PU(T) WRK G1+17) | aL 1352 
a 38 TP (CSPC.£Q.0.8D-06.0R.CSFC.EQ.0.40-07) WRITE (JURITE, 152) csec AL 1093 P2(I) sUOK (Te 17 eK) Ate AL 1353 
: 6G TO 158 ML 1094 VFO FECT) =HRK (TOUT eke K) BL 1158 
ae _ ¥ST SCSPCSCSFCONGHB. 200/1..3554D0 | . NL 1095 Ceoee WRITE PARARETESS 7 ML 1455 
ne 7 TF (CSPC.EQ.0.40-06.0R.CSPC.BQ.0.40-07) WRITE {avarte, 154) SCSEC “BL 1096 , SP (HETRIC.BE.0) GO TO 172 : oh 
ate Ores Oke. — €*@e- STCRE PARAMETERS AL 1097 WRITE (JWRITE, 071) PLT (LPRG) ,CSFC @L 457 
fat 2.8 s.r ae BNO ag (PLT (LERG) .GT. BRK (1)) Go To %62 ML 1099 1SEST® SPECIFIC FUEL COWSUAPTICH = « TPDZ0,-12 2th LSP (eT LBPysic) / mL 1159 
8 $99. WRK (1) =FIT (LPAG) aL 1100 — aSECp BL 360 
WRK (2) =CSPC ; AL 1104 GO TO 141 BL 1161 
«WRK (3) =ExeX <, oot BL t162 992 SCSPC=CSPCe4uN A. 200/71. 3558DU ML 1162 
. pO 160 T=1, 44 aE 4103 WRITE (JURITE, 173) PIT (LERG) ,SCSFC AL 1163 
$60 WRK (Le3) =CPA (1) eh + . hs ol Boag gh Rog SDs & : 173 PORMAT (€10,///, 150, 25H"BEST® SOOEL FIT ERROR = , 3PD25.16,/,15K,35H AL los 
DO 16t 1=3,K : pe” ef owe na0s _ @°BEST® SPECLPIC FUEL COWSUMPTEON = ,1PD20.13,9h M/KU-SEC) BL 1165 
ORK (L007) =P V(T) es ; ae BL 9106 — GO TO 4} AL 1166 
WRK (Te t7 eK) =F2 (1) os mee soa x mE 8267 ceee ENACT TRAJECTORE PREDICTION ROUTINE BL 1167 
2 161 WRK (X¢ U7 eK OK) =F6 (1) ha rier ao “ae en | an aT] V6 Te (maXHPL.2Q.0) GO TG 177 BL 1168 
' Ceee CHECK FOR AAMEAUA LTE@ATION - PdainG ie, +i be af ee | BL 4109 ceee DO WOT ALLGWY AP(ij)*S TO BE EQUAL TO ZERO . AL 1169 
| ¥@2 LP. (YPATH.GE.7) GO TO 166 oo apt es ML 4440 DO 175 I=1,13 hs G BL 1970 
- Ceee EWACT PATH PERFORMANCE ROUTINE ce ae AL 1481 175 1? (DABS (AP (1). LT.1. 00-16) AP (1) = =1.0D-10 ML 1971 
- CALL PATH (K,CSPC,I PATH) “ 2 Yy., ee - WE te OO 176. [=1, MAXHPI | UE AL 1172 
abe ae: IP (CERR.NE.O) GO TO 1 Sie, He ighete) ae . @b 9113 MBPT (IT) = =LUPATH (1} AL 1973 
'. Ceee CHECK FOR PLTCH ANGLE ACDL FICATION ; ay 8 “<: AL itty C®ee® DETERMINE POWER AND LIFT COEFFICIENTS FROA EQUATION oP noTION aL 1174 
TP CLPATH.LGE.2} 15PT=1 BO segs a RE 4995 Ceee WORNAL TO FLIGHT PATH OR ADJUST A ORIOGI WEIGHTS “7 $l 417s 
. Cee ADJUST ANGLE OF ATTACK AND ‘PITCH ANGLE ca a AL 1116 - CALL GDEQH(K,888,2) HL 3176 
- pac=0.500 Poin; Sg, “te. Se mL 1117 ss CALL BPATH(K,CSFC, ANB, LPRG, FIT, TARE, HTARE, MUPI (1) ) AL 1177 
in Des ple ne ree - po 165 i=1,K ; ss ; ; - BL ttt8 Ve CONTINUE AL 1178 
bo teh, ae Pty is | Nal hl led dep aa tee _ ML 4119 ceee CALL MCUEL EXTAACTICN ROUTINE AL 2179 
IP (ser. WE.O) F2(f)= <E6 (1p OPT (L) at att C#e* DETERAIME COMPIDENCS MAGNITUDES FOR ANGLE OF ATTACK AND PITCH AL 1181 
IP (0.EQ.3) GO TO 165 ” AL 1322 Cees ANGLE | : . OL 1102 
f DB=F ICL) -FVGI-2) ; a AL 1323 178 XALP=0.0D0 BL 4983 
f IP (DABS (D#).LT.0.0001DC) GO TO 163  #b 9928 KTHE=0.000 BL 11646 
LY, GO TO 165 ee ; Wh 9925 DO 179 I=1,K : 7 AL W105 
. “163 WRITE (JWRITE, 164) AL 1126 ZALP=AALPo (DADS ( (ALPHA (I) -F6 (1p) /AMAK) ) #92 AL 1986 
ae 164 POMAAT (1%,///,10X,*COMSECUTIVE WEIGHT POINTS PAILED TO CHANGE BY AL 1127 479. ETHE=XTHEe (DABS ((THETA (LE) -P2 (L)}) /TOAX) ) O92 AL 1187 
oe IMEMTAUM ALLOWANCE. 10 MEXT DATA SET, LF AMY.") SL 0428 NALP=XALP/K Bi 1188 
: GO TO 1 aL 1129 RTHE=XTHESK aL t189 
oe 1€5 CONTINUE SL 1130 WRITE (JWRITE, 180) YALP,XTHE . AL 1190 
e ceee ADJUST PITCH ANGLE BL 1433 WO FORMAT (1%,/// 5.83%, "S8NGLE~OF-ATTACK COMPIDEWCE = °,D20.13,/,434,°P AL 1194 
h CALL GAMX (K) aL 132 VITCH AMGLE CONPEDEHCE = *,D20.13,///) AL 1192 
: Ceee PERFORM SOCEL EXTWACTIOR ML 1133 Ceee CHECK FIT ERROR FOR POSSIBLE AMALYSIS TEGQNIWATION aL 1493 
3 CALL SODEL(K,LPAG, PIT, SWB) SL 938 IP QPIT(LERG).LE.PITOK) GO TO 181 BL 1094 
fe Cees CHECK FOR APPROACHING SALIAON LTLOATION aL 1935 Ceee PROCEED WITH WEXT PAOGRAS LOOP (LPRG+1) aL 4395 
IP ({IPATH.LE.5) GO TO 166 py ML 1136 LPRG=LPKG¢1 RL 1196 
Me IPATH=IPATHeT i aL tt37 ceee TEST YOR SPECIFIED LOOP SAXIBUA AL 1197 
Ee 
§ 
t 
ws wo Wr sae, 7 ’ re. 2 
ie Lo meer) as net fot ane 2 had ee -_ ian a omabla ee . sa 3 4. + i i * Med # caer Cores 
oe : ms . : : z % Fie Pact ieee ie reuscsy eit & Sot es / eee Beret cm ae ; Meee fates gage # : wget : i oper 
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IF (LP8G.GT.LeaGas) GO TO 181. BL 4198 ; . ULES, TES 9 ,01205,° FI-LBP/SEC 9°, /, 91,99", 135,94 SUGLE-OF-ATTACE AL 1258 
Ceee BESET IMSTAUCTION CODERS FOR BEXT LOOP AL 1199 . VRATB= °,D12.5,° BAUIAN/SEC | FLIGHT PATH ANGLE®,5K,*= *,D12.5,° B& BL 1259 
Iset=0 - aL #200 VOTR B® 50,808, fe FTO NIT MIST EY RIN, MOH SINK, UTE (EOS) AL 1260 
LPSS"G mL 1201 GC TO 192 AL 1261 
rup=0 ML 1202 190 Wrrt(rp 94. 6482D9 ML 1262 
ISsux0 aL 1203 ALT=#10¢1} €0. 304856 RL 1263 
‘ IPaTM=0 BL 120% ; QLTR=P10(2) 90. 304800 ; ‘AL 3268 
ceee TRANSFE@ TO COMNTaOL POLET a. 4265 ALT207F 12 (1) #0. 304600 AL 1265 
: GO TO 25 aL 1206 OeP% (1) 90. 3088D0 ; BL 1266 
‘ Ceee UYURITE PINAL RESULTS — a a 1207 , ATF 031) OO. 308800 @L 1267 
WOU URITE (SURITE, 1925 £01, 2N2, ER3, ENG TERY LEX2, LENS, LELG EKeX ML 1208 RMN 25 (1) 932. 1606°16.02D0 BL 1266 
hives WBZ PORMAT (VE6///,16R BOCES") Ae HGR, 87%, 9OE208} 2/9, 7, 10K, 9/0", 960," ML 1209 i T#5.0D0/9.000% (F7(L) -891. 7200) 6273.1800. BL 1269 
‘. O79, /, 160, 4/9 20, OOOOPIMALOOO® AX, *GERZRAL EXPRESSIONS FOR POWRR AL 1210 AVSPO(T) 90. 320eBD0 aL 1270 
1, Daa” COEPPRICIENT, AND LIFT COZPPICIEMT® ,92£,°97*°,/, 16K,°/6*,96K,* BL 1291 P= PURA (T) 91. 355400/1000.0D0 aL 2271 
O75, /, 160,979", 960, °8/",/, 16K, 9/99, 3%,'P = PO eo PISHSe? 4pp12.5," RE 1242 WRETE (SURITE, 193) WALT, F2(7} ALTR, P3 (I) -ALTZR,V,ATek ME, OUST), ML 1272 
te PZOFSe?  1PD12.5,9 © PISVOse IPHl2. 5,4 © PuOReSt, 1PDt2.5,3K,°*/", SL 1213 UP6(T) ,CL(L),T,CU(I) ,DV,P,F9(I) PTY (I) mi 4273 
14, 16K, 9/99 962,997", /, NOX, 9/88, 20K,9CD = COO © COISASS*, 12, © CD2 AL 1218 WDE PORAAT (9F, 999, VIL M7K 1  U9E G9 h4 So /e9E,9O*, NIK, 99, UK, *URIGHT AL 1276 
Voaee* 12, *¢ CO2I0ACF',12,¢ © COHOASST, T2,20K,997°, /, 16K,° 7/99, 96K," AL W295 UF, Vee, = 8, DIZ.5,* MEMTOMS®, 4X,°] ALTITUDE*, 142,°= *,D42.5,° B *,9 ML 1275 
West, / VE, sO"  24K,*CL = CLAD ¢ CLAPA © CLAZ®ASO*, 1PDI2.5,* ¢ CLO® BL 1216 UX FH fe INO VIEL EG IK, PITCH AUGLE*,9L,"= *,012.5,° BADIAU',SE BL 1276 : 
Tae, 202, °87°,/, BON, 8/08 IEK OS 9, J, 16K, 8/88 FON, 88/9, /, VET, 8/0", 3X, BL VZ17 ¥,"t ALTITUDE BATES, 9E,°= *,0192.5,° A/SEC *,54,°°9, /, 90,999, 73K,*) ML 1277 i 
VwHEBES* ,B7X,*%/*,/, 1605/9" 96K, ° 7%) BL 1218 TRITCH RATE®, COX, *= *,D12.5,* BADIAW/SEC | ALTITUDE-RATE BATE®,4X,* AL 1278 : 
1P (ReTRIC.HE.0) GO to 183 AL 1219 tw 8,012.5," B/SECOS? *,20,°O8, /,9K 5°99, 19X,*§ ALASPRED®, U2N,"= °,D RL 1279 7 
WRITE (JURITEL, 143) BL 1220 W42.5,° A/SEC *,5K,%) VERTICAL ACCELERATION = °,032.5,° B/SkCee2 *, AL 3280 
GO TO 8% aL 1221 V2 ,9**,/,9K,5* DATA PT °,13,* § DEMSITY®,13K,°= *,0D12.5,° KG/N®*8} ML 1281 it 
103 SRITE (JURITE, 145) AL 1222 | # SLEVATOR DEPLECTION® ,30K,°= *,092.5," RBADIAM*, 5SX,9 9°, /, 9,908, BL 1282 U 
_ GO TO 185 aL 1223 W03K,° ANGLE OF ATTACK*,SE,*= °,022.5," RADIAW',SX,*} LEPT COEFPIC BL 1283 ig 
Whe WRETR (IWRITE, 187) CFA(1) CPE (6) .CeM(t1),CFA(2) ,CRA{(7),CPMN(12),CFM BL 1224 VEST ( CL pe °, 012.5, 120,°6", /, 9K, 9%", 13E,") TEAPERATORE®,91,"= °,D BL 9288 : 
1¢3p -CPA{82.,CPA (13), CPM (4), CFS (9) ,CPA(14) .CPA(S) ,CRA( 10) BL 4225 | 992.5,° VEGREES-K | ORAG COEFFICIENT ( CD p= *,D12.5,12k,°°°,/,94,* BL 1285 iS 
GO TO 146 AL 1226 FOF 19K, fd ACCELERATION®,82,°= *,D12.5,° H/SEC**2 | POWER AVAILAB AL 1206 ; 4 
385 PO=CPA(*4) *1.3558180-3 @L 1227 WEEP, PK 9s §,DI2.5,° KILOWATTS ©*,/,9%,°°*, 13%,°) ANGLE-OP-ATTACK ML 1297 4 
Pl=CFA(2) 91.3555 18D-3 ML 1228 WRATE~ *,012.5,° RADIAW/SEC | FLIGHT PATH ANGLE*,5%,°* *,012.5,* @& AL 1248 if 
@2=CPA (3) °1.3558100-3 KL 1229 VOL AR 5K, 688, /, 9K, 898, VIE EY MTEL 84, OOK, FOO INTER (tO) AL 1289 ie 
P3=CPA (4) ©1.355398D-3 ML 1230 Ceoo PUECH CARDS BL 1290 if 
BG=CPN (5) °1.3550 18D-3 AL %231 192 1? (TPUNCH.EQ.0) GO TO 197 AL 1294 ‘ 
WRITE (JURITE,147) PO,CYN (6) ,CFA (11) ,P1,CPH(7) CFS (12) ,.22,CFN (8) ,C SL 1232 Te (i.ME.1) GO TO 195 AL 1292 if 
tPA (13) ,P3, CRA (9) CER (14) ,P&, CPA (10) ML 1233 (. WAIPE (IPUNCH, $93) (TITLE (J) .J=1,20) Mb 1293 - 
cess SEP CODE FOR UPDATE Om POWER, ABD DRAG AMD LIFT COEFFICLENT AL 1238 193 FORMAT (20a4) BL 1290 : 
186 ITERA=} AL 9235 WUITE (JPUMCH, 194) K,S,KHO,TT EX, EX2,ER3, 8X4, LEXY, TELL, LEXI, TERS, BL 1295 . 
' GO TQ 50 ML 1236 V(CPA (I), J=1, 34) AL 1296 E 
Céee VREITE BESULIS AL 1237 19% PoRnaT (85,52, 014.10, 20,018. 11, 25,018.19, /,9(DIG.91,20) / 4 (L9,UK) ML 1297 
187 BRITE (JURITE, 148} AL %230 Vy 2h, 3 (DVB. 19,22) gfe 8 (BD 18.1920) 6/5 4(D 18.90, 2%) op /o 3 (018.91,2%5) al 1296 P 
188 FOUMAT (1%./// 99K, 01388") BL 9239 195 BRITE (IPUNCH, 196) TIRE (I) FVUCI) -F2¢I) oF3 CL) U4 (1) PS(I) PG(I) 27 ( AL 1299 
eae DO 197 [=1,K AL 1240 UI) PEE) -PI{T) FIO (I), FIUN{T) -FPVZ(I) -PUIC(I) sPYN(I) CLL) <CD(Ip ,PURA MI. 9300 
IP (NETRIC.RE.O} GO TO 390 : ws + ML 9209 V2) ML 1301 
os WRITE (JURITE, 169) FICIP PIO(L) P2(E) VUV(T) P31) VIZ (I) POCLp PY AL 3242 196 FOMAAT (014. 24,224,018. 11,22, 018, 13,24 ,018. 21) AL 1302 
E V3C1) TES (I) PEN (1) PG C1) CLL} FP? EL) gCOCL) PE (1) -PURA (I), U9CIp OF BL 1243. 197 CONTINUE aL 1303 
149K) oct i al 1244 ceee CHECK FOR PLOTS AL 1306 
189 FORMAT (9X, °O*, 130,955 87K, 8 Et 49K, 989, 7,90, 9O* 139K, 4 4", UN, *WESGHT AL 1285 IP (IPLOT.MZ.0) GO TO 199 aL 1305 © © 
te, t4x,*= §,012.5," LBF *,4X,°) ALTITUDE’, U4x,%= °,D12.5,° FT*,9 AL 1246 JPLOT*1 AL 1306 yj ed 
WH, Ot /,9K, Ot, V3E, 849, IX, f ITCH ANGLE*,94,5= °,012.5,* RADIAN, 5X BL 1247 cose DEPINK PLOT CODES ML 1307 oma 
U,9) ALTITUDE BATE®,9¥,%= *,D12.5,% FY/SEC®, 52,68, /,9K,'6" 190,94 ML 9248 CeO UARNING-~ WARNING-- THE FOLLOSING PLOTTING ROUTINES BAY BOT BE aL 1300 ref 
WITCH BATE*, 10X%,"= *,D012.5,° RAOLAM/SZC { ALTITUGE-RATE GATE*,4x%,* AL 12499 Ceee COBPATIBLE FOR OTHER INSTALLATIONS, THE USER SHOULD ImgUuIaz ar HL 1309 25 E3 
Fe *,D12.5,* PE/SECOS2*, 20,584, 7, 90,88", 09X,°) AILRSPEED*,12X%,°= *,D ML 1250 Coes BIS LUSTALLATION®S PROGUAMAING SRAVICES. AL 1310 ee 
192.5,° PT/SEC*,5E,*°] VERTICAL ACCELZRATION = *,D12.5,' FT/SEC®*2", AL 14251 Cees CCAPUTE TIME SPACING FOR PLOTYIEG mL 3331 ee iy 
V2n,°¢*,/,9h,°° DATA PT *,13,* § DEWSITY®, 334,%= *,D12.5,* SLUG/FT® #1 1252 : TOMD=TLIAB (K) AL 1312 4 a 
493 | ELEVATOR DEPLECTION® ,32,°2 *, 012.5," BADI AWS, 5X,°°9,7,90,99*, BL 1253 . DO 198 [=2,21 BL 1373 4 
V135K,°§ ANGLE OF ATTACK®,54,°> *§,D12.5," RADIBN*®,SE,"} LEPT CORFFIC ML 1258 IP (TORG GT. THG (L-1) . AND. TORG.LE.THG (1) ) TPTXM=TRHG (1} AL 1338 ‘ p 
VULEOTE CL P= *&,.DI2Z.5,120,99*,/, 9%, °°", TIN," § TEMPERATURE’, S£,** °,D AL 1255 4f (TORG.EQ. TAG (L-?) ) TPTX= TRG (I-1) BL. 1315 . ey 
See 332.5,° DEGBEES-&@ | CRAG COEPFICIENT( CD p= §,012.5,12K,%¢*,/,9K%,* BL 1256 198 CONTEMUE ML 1316 7 bs t 
be tor, 13K,"t ACCELERATION, BX,** *,D12.5,* PT/SEC*#2 | POWER AVAILAH AL 4257 CALL PLOTIT(K, TPTX IP) AL 1317 - 
re 
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ms 
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eee CHECK POR WEW DATA SBT ee eee, oe ae aL 


199 GO To 1 ; i . AL 
Ceooe TEGAIWATE PLOT ROUTINES BHD PROGRAA | ; . aL 
200 IF (JPLOT.WE.O) CALE PICS12(0.0,0.0) | Peg | a 
SUBROUTINE PLOTIT(K,TETK, IP) re Sate i en 2 5 
c De Me, PL 


Coe “CL ¥S CD, AND POWER ¥S AIRSPEED PL 
c ioe : PL 
TAPLICET BEAL*8 {A-H,0-2) 7 PL 
OXMEZEWSION KD(5) , DUS (450), [P (18) PL 
COMAOM TEBE (450), FP 1 (450), F2 (450) FP 3 (450), F 4 (950) 4254450) ,F6 (450) ,F PL 
17 G450) 88 (950) FS (NSCs FIC (450) E11 (450), F 92 (450), F123 (450), FRY (450 PL 
¥ 60 (450641) K(450, 1) MRAR (250) ,CFM (145 -SGB (4), SGD (4) , FTI (450) , PTZ ¢ PL 
1450) 5 PHAR (4504 CL (M50) ,CD{450) -K1(450) 202 (450) ,EX1,E32,EX3,EX4,6,5S PL 
t,RHO, TEA, EXPL, PLOW, PHIGH, CDLOW,COHIGH, JREAD, JWRITE, JPUNCH, TEXT, FEX PL 
42, TEES, LEXY, METRIC, LI, LZ, LEQMA (18), TERR PL 
CORNOM /LAGB2Z/‘YCEPT, ICD ATH, ACLCC PL 
BEALOY AAD (2,450), 20 (2,450) ,¥8D (2,950) 40 (2,450) , TeTP PL 
c PL 
TPTP=TETK . PL 
bo 1 [=1,K PL 
TP (TLE. 54 KD (1} =-1 PL 
V £200, 5) =2IAE (1) aS “PL 
Cee PLCT WEIGUT TIBE HISTORY Pl. 
IF (IP (ty .NELO) GO TO 4 te PL 
DO’ 2 1=4,K 7 ey AS cae Cee en? PL 
ERO (9,72) =F ¥ (1) PL 
2 IF ((METRIC.NE.O)YRD (1, £)=¥RD (1,1) °4.4880200/100.0D0. _ PL’ 
CALL #ICSIZ(10.6,10.0) : PL. 
EP (HETSIC.NWE.6) Go TO 3 PL 
CALL GRAFF (8.0,0.0, TPTP,5.0,1, *TIAE (SECS) _*,48D,XD,5.5,.5500.6,4500 PL 
¥.0,250.0, 1, "WEIGHT (LBP) _*, YARD, YD, 1,2,1,450,K,0,0,0,0,KD,1,° _") PL 
GO. TO 4 PL 
3 CALE GRAPF (8.0,0.0,TPTP,5.0,1,*TIME(SECS)_*, £80,X0,5.5,150.6,200.6 PE 
1,320, 4, *WEIGHT (NEWTONS) /100_* , ¥RD, YD, 1,2,1,450,K,0,0,0,0,KD,1, & _* PE 
Ry PL 
Cees PLOT PITCH ANGLE TINE HISTORY PL 
&. IP (0P(2).ME.0} GO TO 6 PL 
-p0.5 I=1,K a PL 
S vad (1,1) =P2 (1) 100.000 PL: 
CALL PICSI1Z(10.0, 16.0) 7 eae ') ee 
CALL GRAPE (6.0,0.0,TPTP,5.0,8, *TINE(SECS)_° 4ad,10,5.5,-86.0,00.0, PL 
°190.0,1,"PITCH ANGLE (RADIAN) & 100_*, ¥R2D, YD, 1,2, 146456,K,0,0,0,0,KD, PL 
14," 2") Rip ns ENP n oN aes PL. 
Cee PLOT PITCH RATE TIME HISTORY PL 
6 IP. (§P(3).nNE.0) GO Ta aA PL 
po.? 1=1,k Bite i reas PL 
7 Uad(I, Ty) =P9 (1) #100. 0n0 ; PL 
CaLL PICSIZ(10.0,10.0) eC ee nee ne PL 
CALL GRAPF (8.0,0.0, 1PTP,5.6,1, *TEME{SECS) _*, XRD, 1D, 5.5,-80.0, 80.0, PL 
110.0,9, "PITCH RATE(RAD/SEC} X 100_*, VAD, 1D, 1, 2,1%,450,K,0,6,0,0, KD, PL 
« Sg oe oe na seein PL 
-C#*#® PLOT AIRSPEED TISE HISTORY : PL 


8 LP (1248).NE.0) SO TO 11 | — fo PL 





Cees SUBROUTINE PLOFIT PLOTS TISE HISTORIES, CL VS ALPHA, CD YS ALPHA, EL 


1318 
1319 
1320 


1321. 
4322 


1323 


WOW ew 


po 9 t=t,8 

YRD(V, Up FPG C1). . 4 
9 If (METRIC. HE.0) Fa (1, 1) =2aD ET, £) 0. 300800 

CALL PICSIZ(10.6,10.0)  - Ait Ne is ed 

IP (METRIC.NE.0) GO TO 10 


PL 
PL 
PL 


. 2b 


, ' : pL 
CALL GRAFF (8.0,0.0, 1PTP,5.051, *TIAE(SECS) _*, ERD,X0,5.5,80.0, 300.0, PL 
120.0, 1, ° AIRSPEED (FT/SEC) _* ERD, YD, %,2,1,450,K,0,0,0,0,KD, 1," _°) 


- GO TO 11 


PL 


: PL 
; 10 CALL Gaarr (8.0,0.0, TPTP,5.0, 0, °TIBE(SECS)_*,X@D,X0,5.5,25204,100.0, PL 


13.0, 1, °ATRSPEED (A/SEC) _* ,YRD, ED, 152416950, K,G,0,0,0,KD, Ve? .*) 


ceee PLOT DENSITY TIME HISTORY 
WU EF (2P(5).8E.0) GO TO 14 
DO 12 I=1,K 
TRO (1, 1) =P5 (1) ©10000.000 
12 EF (SETRIC.ME.0) Yan (1, 1}=PS (1) 951453. B00 
CALL PICSIZ(10.0, 10.9) 
IF (AETRIC.NE.0) GO TO 13 


PL 


PL 


PL 
PL 
PL 


PL 
PL: 
PL. 


CALL GCAPP (8.0,0.0, TPTP, 5.0, 1, *TIAR (SECS) _*,X8D,19,5.5, 1N05 200092 PL 


1.9, 1, *DERSITY (SLUG/ FT® ¢ 3) x 10000 _° ’ Yad, YD, 1,2, 1,456,%,6 29,0,0,KD, 


Ju 4) 
OS FO a 


"95 OReL GBAFP (8.0,0.0, 2PTP,5.0,1, *TIAE(SECS)_*, XRD, XD,5.5 
Ve, 1, *DEMSITY (KG/H*63) X 10_*,¥RD, YD, 1,2, 1,450, K,6, 


Ce*® PLOT ANGLE OF ATTACK TINE HISTORY 
14 IP (£P(6).WE.0} GO TO 16 
DO 15° I=1,k 
15 ¥RD(1,1)=F6 (x) #100.000 
CALL PICSIZ(10.0, 10.0) 


eL 
CALL GHAFP (8.0,0.0, TPTP, 5.6, STINE (SECS) _*, XBL.,XD 65454°520,40.0,5 PL 
1.0,1,"ANGLE OF ATTACK (RAD) X 3O0_* .YRD, ED, 1,2, 14450, K,0,0,000,KD,) PL 


| | 
Ceee PLCT TEMPERATURE TIME HISTORY 
16 IF (2P(7).WE.0) Go TO 49 
DO 17 I=1,K 
YRD (1,1) =P 7 (x) 


é 


7 «IF (RETRIC.NE. 0) VAD (1, I} =5.000/9.0D0% (PT (L) -#:91, 7200). 42736-1800 - 


CALL PICSIZ (10.0, 10.0) 
IPF (METRIC.WE.0) GO TO 18 


PL 
~ PL 
PL 


1650,32.0,1. PL 


PL 
PL 
PL 
PL 


PL 
PL 


. PL 


PL 
iPL 
PL 
PL 


PL 
CALL GGA PF (8.0, 0.0, TPTC, 5.0, ¥, *TIRE (SECS) _*, 18D, %D,5.5,450.0,550.0 PL 
¥,25.0,1, "TEMPERATURE (DEG-R)_* ,YRDe YD, 4,251, 250,K50000,0,KD,Ve8 _* PL 


v 
GO TO..19 


PL 
PL 


V8 CALL GRAPE (8.0,0.0, TETP,5.0,9, "TIME(S CCS) _*, 48D, 4D, 5.5,250.0,300.0 PL 
1410.0, 1, *TENPERATORE (DEG-R) _* ,YRD, YD 1,2,1,450,Ke0,0,00U¢ KD, Vy? _¢ PL 


1) 
Cees PLOT ACCELERATION TINE HISTORY 

39 IP (IP{8).NE.0} GO TO 22 

' p90 20 £=1,k 
YRO (3,1) =F6 {1} 

20 IP) (METRIC.NE.0) YaD(1, 1) =P 8 (1) 0.300800 
CALL PICSI2Z (10.0, 10.0) 
IF (WETRIC.NE.0} GO TO 23 


PL 
PL 
PL 
PL 
vL 
PL 
PL 


iY abet woe wma cae PL 
; Cale GRAPE (8.0.0.0, TPIP,5.0, 1, * TIME (SECS) _*, KAD,%0,5.5,°32.0,32.0, PL 
14.0, 0, *ACCELERATION (PT/SEC#*2)_* ,YRD, 1D, 1, 2, 1,450, Ky 0,05090,K051,° PL 


1") 
GO TO 22 


20 CALL GRAFF (9.0,0.0, TPTP, 5.0, 1, *TIME (SECS) _*, X20,XD5.5,-10.0, 10.0, PL 


11.0, 1, "ACCELERATION (M/SEC#O2)_*,¥RD,¥D,1,2,14450,K,0,0,0,0,KD,1,° 


1%) | 
Ceee PLOT AWGLE-OF-ATTACK BATE TINE HISTORY 
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~~ 
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i 
t 
; 
f 
UE. 24 PL 112 10,6001," _°) P pL 172 
; ae Ue ii bebe te pL 413 ceee PLOT ELEVATOR DEPLECTION TIME MESTORT. ax. PL 173 
23 eo (t,t) =F 9 (1) «100.000 ee PL tte 36 Fe (1B 14) .8E.0) GO TO 38: PL 174 
CALL PICSEZ (10.0, 19.0) | PL 415 po 37 i=1,k ; . PL 175 
CALL GRAPP (8.0,0.5, TPTP, 5.0, 1¢ *TIBE (SECS) © BRD, 1D 45-597 10.0,9020, PL 116 37 YAD (1,1) =P V4 (1) 100.000 a PL 176. 
43.0, 1, *ANGLE-OF- ATTACK RATE{RAL/SEC) X 19 Ug ERD, EO, Be 2etebSGeKs Oe PL 1 CALL PICSIZ(10.0, 10.0} PL 177 
10,0,0,KD,1,° _°) PL 418 CALL SMART (6.0,0.0,7PTP,5-0, 1, *TINE(SECS) _° 4 SRD, HD ¢5-59725-0025-0¢ ee 1% 
: ! cees PLOT ALTITUDE TIKE HISTORE a PL 119 15.0, 1, ELEVATOR DEFLECTION (RAD) X 100_*, IRD, ED, 3,241,850,Ke020,0,0 PL 179 
i 28 1F (TP (1d) .BE.0) GO TO 27 PL 120 1,5D,1,° _") PL 1460 
b po 25 I«1,8 PL 121 ceee PLO? LIFT CORFFICIENT VS ANGLE OF ATTACK PL 161 = gs 
; | ya (1, Tp =F 10 (1) /1000,000 PL 122 30 IF (12 (15) .8E.0) GO TO 44 PL 182 
te 28 et | 25 1F UAETRIC. ME. 0) TAD (1, 1) =F 10 (1) /100..0 0000, 308800 PL 423 KD (2) =0 PL 8 6tas 
CALL PICS1Z(10.G, 10.0) Ph 124 CALL ASCEM(K,CL,P6, X41, X2) PL 164 
a ae if (BzTRIC.ME.0) GO TO 26 oe PL 125 DO 42 I=1.K oe 2 ee 
Py . CALL Ree ooh Os TPTE ,5- 0, +e" TIME(SECS) ." /BMD,UD05- 344000 10-00 te By $26 KRDE1, EpHx2 (1p 9100.00 PL 186 
ae : . eeee SE ETODE (PT) /1000_* ERD, HD, Ve 2e Ve 450eK20¢ 04040480010" 7) Pb. 127 EMD (T, 1p Kt (ZT) 10.000 tee ty PL 187 
f 0 TO 27 ¥ rae y roo = PL 428 xeb(2,1) =xeD(1, i) PL 186 i 
bie ee 26 CALL aa er (8 090-0, ETP 5.041, "TEBB (SECS) to ERD, KD/5- 546, Ge 1000s 2+ PL 129 | GO TO (39,40,41),1CD PL 189 : 
oo ke 40, 1, CALELTODE (8) / 100 Te LERDsYDy Vee te G50,K 2000 e0sGeKDe le! _') - ph 130 29 EP (P6(1).GT.0.000) GO TO 46 PL 130 f 
re 7 es gees) PLOT ALTITUDE BATE TIBE HISTORY PL 131 DUN (1p =CFN (12) SP6 (Ip eTCeeTeCRa(tayer3(ty ; PL 191 : 
7 27 ae {12 (1.8.0) GO TO 30 PL 132 GQ TO 42 : 7 Ph 192 * 
te ~ po 28 I=t,k | . PL 133 “0 DON (X) =CEN (11) #CPA (12) 9F6 (1) CEA (13) #F6 (1) COREE CCER (18) OF 3UED BL 493 & 
emo 1, wp =P UV) — PL 134 / + | GOTO NZ | Ak hae ts Pk 9948 ce 
i ge TP (WETRIC. RE. 0) FRDC1, I) =F 11 (T) 40. 304800 . Rk 195 at DUR (1) CRS (11) #CEM (12) FG (I) #CEA(13) OPO (I) CO2OCPA (TOPOS (TH pL 19S o 
CALL PICS1Z (10.0, 10.0} ae! le PR 136 2 COMTIRUE PL 196 eo 
‘Ip. (BETRIC.NE.0) GO TO 29 a. Rk 137 . CALL ASCEM{K, DUA, P6,41,X2) _—. s pL 197 a 
CALL sree eed. D-0,EPTP,5~ Oe Vs *TINE(SECS) _* ERDe XD «5~ 5e° 800004 Dee PL 138 PO 43 120, K PL 198 j i 
ge ay PL 140 ty «CALL PICSIZ (10.0, 10.0) oo . PL 200 ‘¢. 
“go TO 30 ue PL OWT CALL GRAFF (9.0,-5.0,00.0,5.0,1,°AUGLE OF ATTACK (HAD) X 100_*,X8D,K ®L 201 5 
ae 23 CALL Gaare (8.0,0.0, TPt7 50,4, *‘tIag (SRCS)_*,%80,1D,5- 5,734. 0, 34.6, PL 142 : wD, 5. 5,4. 0, 20 0, 2.0, 1,'LIFt COEFFICIENT x 10_*, 48D, 70,1 oho te45O, Kk PL . 202 : ? 
-§e Oe t, ALTITODE SAR (H/SECD_' sTRD, UD, 1,261 2450,K 1050000 eRDe te! _* PL 143 . 1,0,0,0,KD.1,° -'} PL 203 i 
eee an PL 164 . eee PLOT DRAG CORFRICIENT YS ANGLE OF ATTACK . PL 204 i 
_. Goee - PLOT ALTITUDE ACCELERATION TIME HISTORY PL 145 ey IF (ER(16).B.0) GO TO 46 S ae PL 2065 ae 
oe a "39 ae (re (12) .uk.0) GO-TO 33 . . PL. t46 CALL ASCEN(K,CD, 76,11, 12) PL 206 y 
aah Se Pcs 2 Fah URE Eat po 31 1=1,k . = PL 147 pO 45 T=1,K . . eL 207 qo 
ae ne ae Sees | Sere! te arse . 7 oe ERD (1,1) =22 (1) €4109.000 aces. He By AG ee Ack PL 208 oo 
erg S&a te ap es 3018: (WETRIC .WE.0)YRD(1, Ip =F 420} ©9, 304800 © Bag igh Se - te PL a3 #5 YARD (1,1) =xX0(T) #100.0D0 - PL 209 ; 
CALL PICSIZ(10.0, 10.0) ss 7 PL 159 CALL PICS1Z (10.0, 10.0) . nt ee) bape pe PL 210 
gp (eetRIC.HE.0) GO TO 32 . . . PL 151 CALL GRAPP (8.0,-5-0,40.0,5.0, 1, "ANGLE OF ATTACK (RAD) K 100_*, 28D, x PL 24 ow 
CALL cea ee NO, TPTP 5-0, 1, *TKAB (SECS) _*, XD, 1055-59" 10026 0 100+ PL. 152 10, 525,0.0,15.0,120,1,°DRAG CORPFICIENT ¥ 100_*, U8D,¥D,1,2,1,850,K, PL 212 e 
90, 10.0, 1, ALTITUDE re ELERATLOM (PT/SEC**2) _! ,TRD,UD, Vo2— 144502606 et 153 10,0,0,0.KD,1," _*) pen) ee erp cere aut, BE ats 
— 90,0,0-KD,1," _*) fe «BB 198 cose PLOT LIFT COERPICIENT VS DRAG CORFPICIEST PL 214 
GO 70 33. 7 PL 155— 46 LP ( (LP (17) -HE.0.08.18 (35) -NE~0) OR. LP (16) . BE. O} GO TO 69 PL 215 
32 GO 70 3) 19.0,0-0, TPEP,5-041, *TIME(SECS) _" 18D /KD45. 50 -90,00 3000 PL 156 CALL ASCEE(K,CL,CD,X1, 22) PL 216 
14.0,.0,SLTITODE soe ELERATION (H/SECS®2) _* g EAD, TD, V0.2, 14450 KO 00104 PL 157 pO 4? [=4.K PL 217 
7 10,K0,1," _*) PL 158 KAD (1, 1} =X2 (1) #100.000 pL 208 
Ceee PLOT VERTICAL ACCELERATION TIRE HISTORY PL 159 KRD(2,X) =X80 (1,2) ph 2a oD) oO 
33 IR (XP ¢13).e-0) GO TO 36-  ~PL 160 #7 ERD (1,5) =K1(T) #100.000 ' pe 220 ky sy 
‘po 34 £21,K PL 161 CALL ASCEU(K,DUA,CD, 23,22) . - / el 22t 
rap (t, 1) =P 13(T) PL 162 DO 48 [=1,K os opp 222 hy fom! 
ja re (METRIC ME. 0) CRD (1,1) =P 13 (1) 00. 306800 PL 163 48 YRD (2,1) 2241) $160,000 PL 223 3 
CALL PICSIZ (10.0, 10.0) PL 164 CALL PICSIZ(10.0, 10.0) PL 228 ¢ = 
LIP (SETRIC.WE.0) GO TO 35 : eek PL 165 CALL GRAPF (8.0,0.0,15.0,1.0,1,°DRAG CORPSICIEST (CdD) 1 100_, Kab, k PL 225 2 
CALL Fra yeh O, TPTP,5.0,1,*TINE (SECS) _*, EBD, KDs5~5+- 326003200: PL. 106 1D,5.5,0.0, 200.0,20.0,06°L2FT CORPFICIENT (CL) ¥ 100_*, THD, LD, 1,2,2 PL 226 ou pb 
16.0,%,° VERTICAL SCERLEMATLON (PT/SEC#®2)_ © ,ERD, XD, Vo 2q 14450604000 PL 167 1,450, K.K,0,0,0,KD,1," _") it SS teeta, | er | by 
1,0,K0,1," _*) pe - - PL 168 ceee PLOT POWER AVAILABLE ¥S AIRSPRED PL 223 os 
GO TO 36. PL 169 49 LP (TP (18)-ME.0) GO TO 52 PL o229 ca Ay ; 
35: CALL caepy (8.02020, TPER,S. 0, V, (TINE (SECS) _*» KBD KD,5~59° 10,00 VO ols PL (170 CALL ASCEW(K,Pwaa,04,K1,%2) "“"" pp 230 tA 
12.0, t.° VERTICAL OO ELEBATION (B/SEC®®2)__",TRD, TL, 1,2, 1,450 4K 00 2000¢ PL (73 po 50 I=1,K | PL 231 fn p 7 
wit a sScloedi cna fae - oy G2 : 
BA Sa 
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3 
ta . . 1 
XRD (1,1) 2K 2(E) PL. 232 IF (A.GE.0.000} GO TO 3 as = 64t - K 
TaD (9,1) =X1(7) 71000.0D0 PL 233 CALL SIGHS (SGM ,TEA1, 1852, 1BK3,12%4) AaB 82 ‘i 
EP. (SBTRIC.EQ.0)..50_T0. 50 PL 234 CALL SIGHS (SGD, IN 1, 12,113, 2X4) ap 83 i 
XRD (3,1) =X8D (1,1) 0. 3048800 PL 235 3 PCPA (1) eCPM (2) SUOCEZ VOCHA (3) SVOSEKZECFA (4) S¥SORIIOCEN(S)SUSSERS §=688 648 :, 
TROD (1, 1} =K4 (I) #1.9558D0/1000.0 PL 236 CO=CPA (6) ¢CPA (7) SGN (1) SANSOIERUCCES (8) OSGN (2) CANOOZ EX 20C FR (9) ©SGN ed a5 i 
50 CONTIMUE PL 237 (3p CANeeTEx3+¢Cern (10) *SGH(S) CANCOTEXY B 646 
CALL PICSIZ(10.0, 16.0 PL 238 BO=GODSIM (ASTIA) / (WEV) OPEC PSeReNeys (2. ODO%Y) © {SGD (1) CLERIeaReorste rT a? 
‘ IPF (RETRIC.ME.0} GO to PL 239 ICES (7) SGD (2) LEX ZFANS OLA ZSCPA (8) +SGD (3) #IRKICAMN*SINZCTRA(9) eSGD(4 AB 8 88 
fi CALL GRAFF (8.0,80.0, 300. ae 0,1, *AIRSPRED (FT/SEC) _ TERED SUDs3 o 5020 PL 240 1p PIEKG CAN OTIN OCHA {10} 5 ap 49 
‘ 4.0,220.0,20.0, 1, "POWER AVAILAGLE (PE-LBP/SEC) /1000_* 54RD, ED, 1 e2et,% PL 241 BY=FS6 (1) ~G*DCOS (ASTIA) / (8*¥) SPOGESORO USTs (2,.000°N) *CDeGeDSER(T-A}) «AB 650 
e 150,%,0,0,0,0,KD,1," _*) PL 202 BB=BB¢BGSH? aB O51 
GO. TO 52 PL 2483 BBB=BBB+ 80 #80 AB 82 j 
51 CALL GRAFF (8.0,25.0, 100.0,5.9,.1,*AIPSURED (S/SEC)_", XRD,X0,5.5,30.0 PL 248 If (A.GE.0.CDO) GO TO & AB 3 i 
4,300.0, 10.0, 1, "POWER AVATLABLE (RILOWAY?S) ©, YED,¥D,142,1,450,K,0,0 PL 285 CALL CHUGE (SGN) 8B 58 
1,0,0,KD,1,° _*) PL 246 CALL CHNGE (SGD) as 8655 
52 Qeruan . PL 247 & CONTIMUE a8 56 ; 
ead PL 248 ceee CALCULATE THE 81as page Tyee - ap «(57 ie 
ear ABS =-88/8B58 ap 658 r: 
WRITE (JURITE,5) ABS . ap 659 ‘a 
§ PORAAT (1%,/,30K,70¢'- ©) 0/030K 5°)" .60Re" te /530K,*§* 3K, S6MCALCULA ab 60 r 
‘ SUBROUTINE AALAS(K,LERG,PIT, ANB) AB 1 ITED CORSTANT BIAS IM ANGLE OF ATTACK = o IPDIG.9,350° 19) 3 | aB O6T i 
: a ee . ay 2. EP (DABS (ABS).LT.5.0D-07) GO TO? - Se ab 62 £ 
: cess SUBROUTINE ABIAS CALCULATES & CONSTABT Bras as AUGLE or artack AaB 3. WRITE (JURITE, 6) AaB O63 ae 
if eee i aB. O48 6 FORBAT (30K,°) 68X55) %e/,30K, 70 (9-9) 3 AB 68 4 
“ ” - * YqRLECET @BaLea¢a-4,0-2) | aa 5 “GO TO 9 AaB «65 5. 
BE ~ PIBEMSIOM PIT(2),5T(10} ABtCé«SGS 7 BRITE (JURITE, 8) AaB 66 1 
e COMMON TIAK (456), F1 (450), 2 (450) ,83 (450), P4 (450) 9F5(450) ,P6 (450) PF 2B a ae @ FORBAT (3G%,°(°,3%,°RNGLE-OF-ATTACK BIKES < 5.0D-07. Breassisc ABA AB OG? 4! 
17 (450) P78 (850) P9450) F710 (450) ,PU1(450) P12 (456) , P93 (450), PIS (450 aB a VLESTIS. 9, VIE, 8g fe 30K, AY 68E,9 4% 4/4 FOE, 70 (9~*) //} ap O68 
ae 1p .C (450,11), (450, 1) pWRAR (250) ,CRA (14) ,SGN (4), SGD C4} , PTT (450) , PT2 ( AB 9 eRtuRe ; AB 63 
i - 1850), PUBRA(SSO) ,CL (450) , XX (450) ,41(450) -X2 (450), BK1,E 42, EX3,2K4,G,5 AB 10 ceee CORMECT ANGLE OF ATTACK é ap 670 
f 1, RHO, TIA, EXPX, PLOW, PHIGH,CDLOM ,COHIGH, JREAD, JURITE,JPUMCH, TEX, IEx aa 12 9 DO 10 I=1,K aB O71 
ia og | 2, TERR, TEK4, METRIC, LU,L2, 18QNN (18) ,LeaR AB 12 tO P6 (tT) =F6 (1) ¢ABS*BP ap O72 , 
ae Beas yikes *. ey AB O83 Cees PERPORN MOLEL 2LTRACTION a se a ; ap 633 
Coe, -IMITEALIZS PAGABETERS ap WW CALL MODEL(K,LP&G, FIT, BB) aB O78 
re \ 7 Ad 15. IP (IBRR.NE.0) BaTURN Ee Peck neuter P / BB 75 
_ ak eee BF=9.6 66570 AaB O46 Su2=PIT (LPRG) es . a: . aB O76 A 
x Cees STORE SERTIWENT [FORMATION AaB «(17 ceee CHECK PIT BRROR 7 . i i aB O77 : 
ae -  * Q°SNI=SPIT(LBRG) - aa 18 If (SA2.LT.S8%} GO TO 1 2 7 aan O78 a 
eS po 2 r=t,10 ap O19 PIT (LPRG) =Sa1 . . ap) 679 a 
a bo 2 St CE) =cra (1) AB 20 Cees READJUST AUGLE OF ATTACK a < a § me * AaB 80 ¢ 
a - Cees, STEP AWD CHECK COUUTER QB 23 . DO 13 I=1,8 ste pk ap oat ; 
ie (Pare AB 22 14 F6 (E) =P6 (I) -ABS*BP 1 is Hes . se 82 a 
te - . + TE (1?.GE.2) GO TO 12 a8 = 23 12 dO 13 I=1,10 bong ee - - AB 83 me 
- (C*ee SET LG@OP PARAMETERS apd. 2s. 13 CPA(I) =ST (I) : — AaB 84 G 
i - ° CALL CHNGE {SGB) as. 25 RETURY a AB 8S se 
- CALL CHNGE (SGD) AaB 26 END ei an aB (66 4 
re IX¥=LEx1-1 aa (2? _ | a 
iN2=1Ex2-1 AB 28 4 
| “IK3=LEQ3-1 AS 29 - Srey 5 ar F 
_ IXM=TELG-1 eB 6 | SUBROUTINE ALPDEL(K,LERG,SNB,FIT) aD ’ 
" BB=0.000 ab Oat c aD 2 & 
_ ° * BBB=0.000 AB 32 Ceee SUBROUTINE ALPDEL PERFORAS PREQUEUCY- DEPEWDEUT CORRECTIONS TO THR AD 3 ab 
Cee CALCULATE THE BIAS SuaS aa 33 ceee WALUES OF ANGLE OF ATTACK ad & : 
DO 4 I[=1,K aa O48 c so aD 5 * 
W=F (I) as 35 KSPLICIT @EALS9(a-H,0-2) aD 6 
T=F2 (I) AB 36 DIMENSION PIT (2} ,ST (4,450) -SA (4,450) ,FC QU, BIp, AL (4) ad 7 : 
V=Pe (1) aa. 7 COMMON TEME (850), F1(950),P2 (450), 3 (450), FP (450) -F5(450) 6F6(450)," aD 8 i 
R=FS (3) aa) 36 17 450) ,F8 (4590), 794450) ,F10 (450), F41(950), F 12 (450) »FE3 (450), riu(450 aD 9 
A=F6.Q1) aa 39 Ap pC (450,11) p X (950, 1) WKAR (256) CRA (14) ,SGU (4), SGD (4), PTI (450) , FT2( aD = s-*10 3 
Ag=DABS{(A) ap. 40 1450) , PWRA (450) CL (450) CD 4450) 2 K1(N50) ,X2 (450; ,EX1,242,E03,8X%4,6,5 aD 114 : 
' 
A 
4 
: } 
fh: a | nares CRN | PL cia, Me ec hss a ca ao ers tate ae 
= ¥ woe hoeg Cena Ae octet agrimcetroren 5 dames oh} : bs ae repaa gente ric hiPy else OP eee aetee tee ade fey i 
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- 1 RHO, TIASERPE, PLOW, PHIGH,CDLOW,COMIGH, JREAD, JuRITE, JPURCH, LEXI, Tex ao 


ad. 


AD 








12, 1843, 1EL4, METRIC, L1,02, [EQUM (18) TERA aD 
comaoa. (pena sa Sete tbe STH, ACLCC aD 
INTEGER WLLS (6) /2,34304%,2,4 3/, ULSD (6) /2, 24% 5%23,3/ AD 
Cc AD 
.. Cee EWITIALIZE PARANETERS . AD 
“BS3=0.300 : “AD 
IUP=0 abd 
It=0. aD 
‘WRITE (JURITE, 1) ad 
3 FOMMAT (64,1320 ('¢*},/,61,6 (0%), 1K 46uBEGTH PREQuENCY COMRECT IONS aD 
ITO ANGLE OF ATTACK, I3K,6(%+")) ~~ ad 
: C*se STORE PERTINENT Turoesatiow AD 
: —  . pO 2 I=1,K AD - 
aD ST «1, 1) =F2 (1) AD 
‘ 2 Sat, Ep) =F6 (1) aD 
; we ge ace soos POD £EF1,30 
Vee 9 OT Ep CPB ET) — 
Bs eee PL ge -#C (4, 1p =F IT (LERG) aD 
Ce. | gee CHECK AND STER COUNTER aD 
rans nt. G2.3) GO TO 59 AD 
t ; : : : . rm ae . ee  YP=ITe 
_ WRITE (gw@IPe,5) £7 ao 
S FORMAT (1K,//,6K, "ITERATIONS, 12,/) . AD 
ae £8 (1?.GT.2)853=1.000 aD 
. C8es COMPUTZ PCWEA AVAELASLE AMD LLET COEPPICIEST aD 
- :& DO FP: E=1,K aD 
 ° PWRA (TL) = =CEM (1) #CPM (2) ©P4 (I) ®OKXTOCES (3) OF4 (I) CORN ZOCEM (4) #P4(E) O88 AD 
 URDOCPN (5) ©P4(T) SeEx4 AD 
7 CLL) =(2.0D08F 11) / (PS (I) FY (1) G%S) } * (PT2 (1) +G9DCOS (FTI (IE) ) /F4 QI) AD 
5 V-G *PURA (1) SDSEN (FG (I) oTIA) / (PU (1) OFS (IE) %2)) AD 
ceee CHECK LIFT FUNCTION CODE FOR DETERMINATION OF MUABER OF UNKNOWNS AD 
: MENELLS (NTHOT) aD 
TF {(ACLCC.NE.G) M=NLSD (STH? 1) AD 
oF (MCLOC.EQ.0) GO TO 20 aD 
cess ADJUST CL°S, IP NECESSARY, FOR PITCH RATE DEPEMDENCY AD 
EP (STH. EQ.0.08.NTH.EQ.2).08. 5TH.20.4) GO TO 10 aD 
po 9 1=1,K aD 
= yg CL (1) =CL (1) ~CPS (14) #83 (1) Ab 
- C@ee ORDER DATA FOR DETERNIBING LIPT COEPPICIEWTS aD 
- 40 CALE aSCEN(K,CL,P6,X%1,%2) AD 
Cees CHECK FOR NEGATIVE OR ZERO X2*S AD 
=O AD 
OG 11 [=1,K aD 
> «EP (x2¢0).GT.0.000) GO TG 12 AD 
PP GI=TIED aD 
. 92 -KM=K-dd AD 
eae | a (KM. EQ. K). GO TO 15 AD 
cees STORE VALUES FOd LATER COMPUTATION aD. 
PO 15 LH4, 0S ark av 
 @KARET)= =X%2 (I) aD 
: 13 WKAR (i653) =K1(0) : “AD 
.. Cees. ACJUST REMAINING POLNTS FoR Least- square DISTANCE AD 
oo DO 16-21, Ks : . aD 
7 AUCH) =X (JdeT) . AD. 
WM HQ (Cp HK2 (Se) 3 AD 
Cees [MITEALIZE LEAST- SuUAKE-DISTANCE COEFFICIENTS ' abd 
15 ALC) =CEA (11) AD. 
AL (2) =CPA (42) aD 
Ab 
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“66h | 





atte 25 sects gets dinette vie aitebenh MEAs gga Se : 
he sgh fe eres ic Gob Se. oe ag 


AL (3) =CPR (13) 


Oo Fee Footage tse ae 


AL (4) =Euex 


cess. 


Lasd 
PERFORA Least- SQUARR-DISTANCE rit 


~ CALL LSD(22,21, Ka, AL, U, ARS, LB, 180, JWBITE, OTH). 


IF (LA.WE.0) GO TO 17 


WRITE (J#BITE, 16) 


cess 


cree, 


cese 
W7 


18 

19 
cese 

20 


23 
22 


23 
24 
25 


26 
27 


PORMAT (12,//,851,82HLEPT COEPFICIRETS BY peASersaunee BISTANCE,/) 
DEFINE CODE AND LIFT COEFFICIENTS 


-Icb>1 


CFA(11)=AaL (1) 


-CP8(12) =AL (2) 


CFS (13)=al (3) 


- BEPK=AL(4) 
‘COMPUTE INTERCEPT 


IP (J3.80.0) GO TO 47 

ICEPT=GKAA (23632) -C¥A(12) OuKAR (Ia) 

GO TO 47 pan 
DEFAULT to ree rei Bk her ge rit 

po 18 I=t,K _ ) 
CL I} =CL (1) (CPM (14) OFS (E) 


“M=OLLS (ATH 1) 


PESFORM LIWEAR LEAST-SQUARES FIT 
ATHPU=ATH+1 

DO 27 [=1,K 

IF (F6(1).LE.0.0.AmD.BTH.GE.2) GO TO 28 
C(I, 1) 21.000 

GO TO (21, 22,23,2%,25,26} ,ATHPT 

C (1,2) =P6¢I} 

GO TO 2? 

CU, 2) =86 (1) 

C (1, 3}:=F3 (1) 

GO TO 27 

C (1, 2) =P6 (1) 

C (1, 3) =P6 (1) *ExeX 
GO TO 27 oa 
C 1,2) =F6 (1) 

C(I, 3) =P6 (I) © ExPxX 

Ci, 4) =F3 (2) 

GO TO 27 

C (1, 2) =P6 (1) *EXPK 

GO TO 27 


‘C{E,2p=F6 (1) oF EXPx 
C{1,3)=P3{1} 
21, Hp =CLU) 


Ich=2 


GO TO 36 


26 
29 
30 
3 


32 


EX PX=2.0D0 


DO 35 1=1,K 
C (1,1) =1.0D0 
GO TO (29,36,31, 32,33, 4, aTHPT 
CUE, 2p=F6 (1) 


GO TO 35 
(Ch, 2)=PF6 (1) 
(1,3) =PF3) 


GB TO 35 
C (LU, 2) =P6 (1} 


(1, 3) =P 6 (2) OF 6 (I) 


GO TO 35 


C (1,2) =F6 (1) 


72 
33 
7a 
5 
76 
v7 
78 
79 
80 


82 
83 
ea 
‘95 
86 
a? 
86 
a9 
90 
91 
92 
93 


-. Oe 


95 
96 


- 9T 


38 


101 
102 
103 


» 104 


105 
106 
107 
108 


109 
110 


111 


$02 
143 


tle 
445 


116 


V7 


(116 
119 


120 
121 


422 
123 
128. 
W25 


126 


127 
128 

129 
130 


131 
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ee 218 ae : ; ‘ : Oeste Meee, pigs: ' de 
JAN. 
OO 
ee CCl, 3p=FOUIPOVO(Tp = = Be ae oe oF ad W320 $1 CLE=CEA (11) CPM (12) OF 1) OC 13) OFS (1) COEKEXOCEA (14) 2F3 (1) AD 192 
y CUS) zFRICEP ee ee ee ae gt 2h og ge ED EE Sy. : GO 7053 we. . . ab 193 ° 
GO TO 435 Ge he Og te 8 ORG oe AB 138 $2 CLE=CPN(13) CCEN (12) OF6 (1p CEN 33) ©P6 (I) SFG (Lp OCPR (U4) ©F3 (I). AD 498 
| -43-C OL, 2) =F6 (1) @F6 (IE) - Se Fe, st oe eee = iin oo. 6D 88S  §3 sue (PTZ (1) -GOSOPS (L) O84 (1) SCLL/ (2.000 OR 1 (1) ) *GOLCOS (2T 141) ) /P4 (1) - aD 195 
ee GO-TO 35° bP cy ary 8 Pte eet Sea ae AD 136 “WG PARA(I) SDOSIM (PG (1) TIA) / (FUE) oP (Lp ©°2)}) AD 136 
“3M. CQL, 2) =F 6 (1) *F6 (I) Sat sce ae A gst FT,” ee, * av «(137 TSI=TSAUS“eSy AD 197 
© gry =F C1) a Se ae n 3 AD «(138 . 54 COMPINUE AD 19a 
35 MCL, 1p =CL(E) --c oe oe, bes be Poor tt BD 199 _ LF (NCRUTLNE.O} @RITE (sue ite, 55) SCNT AaB 499 
: IcD=3 . . i - Ao 6440 55 FORMAT (1X,//,94,94H89@ DURING MEWTON-RAPHSOM FOR ANGLE OF ATTACK AD 200 
- 36 CALL LESQaR(C,1,K,N,1, 450, 450, 15, KAM, TER, weertey. er \' nL 8 VIN MEATOK, ROUTIWE WISHED TO SEEK COMPLEX ROOTS ,13,7H TIAES.} ad 201 
- * FR {EER.EQ. 129) WRITE (J@RITE, 37) > - aD 142 @MITE (J8RITE,56) TSE aD 202 
37 FoRsaAT (10,77, 10%, °ZERO MATRIX ENCOUNTERED, LOCATION: ALEDEL. TO aD 443. 56 FOWMAT (14,//,30%,S2HPREQUENCY-DEPENDENT FIT ERBROZ FOR ABGLE OF AT AD 203 
;  WWEXT DATA SET, IF ANY.*.//) ae is AD 184 WACK = ,D26.13,//) AD 20% 
* IF ({LER.EQ. 129) LEBR=1 reo AD 145 cee COMPUTE PITCH ANGLE CORRECTION DUE TO CORRECTIONS IW ANGLE OF AD 205 
4 IP (12RR.UE.0) RETUSN eee. 8 eae AD We cose ATTACK AD 208 
ae CEM (UIp=HR GT, 1) | wees) fo, -k a “AD (107 - CALL GASX(K) . AD 207 
BY —- pO 34 T=12,14 .  . . > , aD t48 Ceee PcRPOMM SOCEL EXTRACTIONS aD 200 
ye 98 CPaA(1}=0.000 & oe oe ae iia Boies AD. 149 CALL MODEL (K, CERO, PIT, ANB) Beene ania ee Dann BO 269... 
: >: GO TO (39,86,41,42,43, au), /MTHRY eres 2a) NE Lae ~ ad 150 IF (LERK.NE.O) RETURN aD. 230 
39 CEM(12) =X (2, 1) ergs te te Hh on ee | ee bo Cees STORE UPDATED VALUES . a au o2tt 
: . ~ Go TO 4S Os - ; Be me = ab 152 DO 57 r=1,10 CF netstat ee gp 202 
ae WO CEN(VZP=K (2,46 ee : * AL 153 57 ECQIT+T, L} =CFN CL} e heg ad 213 
% CRA CIG) =x G3, vy . ee ee a AD. 154 FC (£T+4, 12) =PIT(LERG) a - aD 206 
ue ee: GO TO 45) ar ae 7 aD 455 - DO Sé 1=1,K ‘ . AD 215 
OT CENQI2)=K (2,1) ae - 8 os. AD 56 SP qLtet, 1) =F2 (1) 7 aD 216 
CPA (13H C3, t) ey Ss ae phe ae ad 157 58 SA (IT, 1) =P6 (1) Bee Ab 207 
- =. GO-TO 4&5 : SP eee ney . ab 158 GO TO 4 : - ¥ aD 218 
a #2 CEM(V2) =" (2,1) mA ree : aD 159 cese TEST FIT ERROR ; te . | £24 
i > CPA(13)=K (3.1) BT ae ks Pe aD. 160 59 IPL=IT¢I = a 3 AD 220 
ae CFA (16p=K (4,4) ; dy AD 161 deg be FC (1, 34) ; AD 223 
a. GO-TO 45 ee. aa: ee AD = 162 DO 60 J=1,1PL Av 222 
— 43 CER (145) =4 (2,1) aor : AD 163 60 IF teeti. +1). LT. FIT (LPG) ) PLT (LPRG)=PC (9611) . -AD 223 
a . 3 GO TO 45 Sie sean AD 64 00 63 J=1,IPL s aD 228 
oy O& CFH(13)=K (2, 1) Ep a AD. 165 OY IP (PC(J,11).EQ.PIT(LERG)PMFLES0 2 : ‘AD 225 
te, CEM (14) =X (3, 1} a eee - sr AD 6166 cee RECEFIWE COEFFICIENTS : aD 226 
2 45 WRITE (JHBITE, 46} ab 6167 DO 62 I=1,10 ee . . ae By 22? 
oe U6 FORMAT (1X%,//,451,4 THLIET CORPFIC ENTS oY AIWEAR LEAST SQUARES,/} AD. 165 62 CFA(1)=FC (NFiz, 2} 4 = ap. 228 
ae  LasO AD 169 Cees RESET PITCH ANGLE ANE ANGLE CF ATTACK : aD 229 
a4 G7. MRITE (JMRITE, 46) CEN(1), CPH( 12) of SEN) EXPL,CEN (24) AD 170 pO 635 I=1,K | aD «230 
nae GO PORBAT (524, THCLAO = ,023.16,/,52%,74Cla = ,D23.16,/, 52k, FHCLAX = AbD 171 F2(1} =ST (NFIT, I) - AB 23t 
et Dg D238. 16,/,52h, 7HEXPX = 023. V6 y/e52Xe TAL = Dé}. 16.//) AD 17% (2 F6 (1) =5A (NELT, Zz) aD 232 
ye Cees CHECK ON UPDATE CODE -"« ab 173 bue=1 , we co . gh om AD 243 
a °° ER (1UP.NE.O) WRITE (JURETE,49) AD 174 GO. TO 6 % : aD 234 
Ee 2 uo FORMAT (64,6('0°),1K,46H EWD FREQUENCY COBBECTLONS TO ANGLE OF AT AD 175 €4 RETURN oe : aD 235 
a MBACK, 1X,6046%) 7,60 ,120 ("+") AD 6 t?b ee 21" ‘ ee a Ra a a _ § . AD 236 
eee | (LUP.NE.O) GO TO 64 Av 177 ao 4. ina . Fes 
Cees [WITIALIZE PIT ERROR SUM ae te — AD 178 : 
: ' T5x=0.0D0 a AD 179 me A 7 
ot oe _ .: €@ee SOLVE POR ANGLE OF ATTACK BY WEWTOW-RAPHSOW |. AD 180 _ SUBROUTINE HEUTON(E ALE, ACHT) a ee ad a Mahe ue a ne 1 
f : ; we re ae : ne ACNT=O0-— ae oe : ; eee am “AD. . bat. Con & ; a 2 
Me ee pO SY L=1,K ’ se see “aD 182 Cees SUBROUTINE MEWTON USES A noDiFlED SECOMD-O8DER NEWTON-aaeHSON wo 3 
7 | CALL NEWTON (1, A, NCHT) . . . ve rine Oe AD 163. Cees RETHOV TO AVJUST THE VALUES OF ANGLE OF ATTACK . ‘wi ry 
| o REBEA-F6 (1) oe a AD tBu | rae ai soa : PEE RTT As A Sa ski i ee . 
i Coe COMPUTE FREQUENCY-DEPENDENT AWGLE~OF-ATTACK CORRECTIONS rote BE AD 85 ISPLICIT GEAL®{A-H,0-2) ; we 6: 
FG (1) =76 (T) ¢BS OAL : a OD 186 COMMON TIME (USC) pT (450), FZ (450) ,F3 (45) pF 4 (450) -FS(45U) ,F6(4S0) PF Md? 
ot C*#se° COMPUTE FIT ERROR > -  &b 187 - 47450), Fd (450), P9 (450) -F10 (450) ,P11(450) F432 (450) ,P13 (459), P14 (450 wu 8 
ag eT - GO TO ¢(50,51,527,1CD ' ap tdd | tp 1450, 11) ok (450, 1) ,WKAN (250) ,CFA(14) ,SGH (4), SGD(U) , PT (450) ¢ PT2 ( We 9 
50 IF (Fo{l).GT.0.0pD0) GO TO 51 . * . ab 182 ~~ 9450p PRRA (USO) ,XK (450) , YY (45C) 2 XE (45C} £2 (450), EXE, E42, EN3,EX4,G,S WH 10 
id — CLE=CPM(12) *P6 (1) ¢YCEPTHCEN (14) #F3 (LE) . _ aD 190 «1, RHO, TIA, EXPK, PLOW, PHIGH,COLOW,CORIGH, JREAD, JURITE, JPUNCH IELU,LEX ww | TY 
a GO TO 53 7 DT «$2, TEE 3, EEXS, METHIC, LI, LZ, 1 EQMUN (1d) -TERR . Ka 2 
. ; 
; 
Y 
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 caee! IWITIALEZE PARABETERS 
 .¥Sz=0 - 
a=P1(E) 
. W=Pa(T) 
~R=FS (Lf) 
GD=PEZ (I) * 
HD=P 42 (K) Mae tae! 
|): P=Peea (I) oe 
GAASDARSIM (HD/T) 
ee It Sol 12 tS . 
 Ceee. BEGIN ITERATION 
oo. Fem! 
2 a0=a 
cess COMPUTE LEFT COEFFICIENT ayo DERIVATIVES, 
, GO TO (3,4%,5},ICD 
3 IF (&.GT. 0.000} GG TO 4 
CL=CPA(12) *A*TCEPT 
DCL=CPN (12) 
“ DDCL=0.0D0 
GO TO. 6 
ase pet rier yp et ear a 
- PC LCPA( 12) CEXPLOCEN (13) OR** (EXPE~1,.000) | 
DDCL=ELPK* (EXPX-1. ODO) *Cem (13) #20e (BXPE-2.000).. 
GO TO 6 
5 CL=C PA (11) *CPM (12) ACCES (23) *ASACCES (14) 973 (I) 
DCL=CFS (12) ¢2.000°CFA (13) *k 
. DDCL=2.0D0 *C Fn (13) 
Ceee FORE WKWTON-RAPHSON RQuATION 


6 H=GD- (G*S*B*FFCL (2. Gaoeg) tGeDSIM (AeTLA) #P/ (MPVS) ) ¢CODCOS (GAR) /¥ 
HP=~€(G*S*R9¥) / (2. GDOFW) *DCLeG*PSDCOS (AeTIA)/(weNOY)) 


NE-DABS ((PoH*WONEY, (DSIR(MOTIA) +1, 0D~6)) /2) 
Cees CHECK FOR WEAR-ZERO SLOPE 
7 ‘Iv. (DABS (HP) .LT. 1.0D-15.a8D.1S2.EQ~4} GO TO 1t 
IF (DABS(HP) .GE.1.00-15) GO TO 7 
- ISZ=15z01 
Ceee HODIFY POWRR AND STA@T ITERATLOM AGATY 
, Pupeg2. 
. go ta tl 
F MER=GOPFDSLM (AETLA) / (E9097) -GESeRe Pe DDCL/ (2.000 +4) 
 . *  MAD= (HR/HPP) © (HP/ HPP) -2.000% (H/HPP) 
> Cease ADJUST VALGES OF AWGLE OF ATTACK 
EP (RAO.LT.O.0D0) GO TO 9 
. TP ((HP*HPP).LT.G.000) GO To 8 
 A=A-NP/HPPODSQRT (RAD) 
‘30 TO 10 
 @ B=A-HP/HPP-DSQRT (BAD) 
GO TO 10 
9 a=a-He/HPP 
MCHT=8CUT+1 
> GO to 11 ; 
10 ICK=ICK+1 
oP (DABS (A-A0) LE. 1.0D- 15. O08. .ICK. GE. 20) GO ‘to " . 
> GO: TO 2 roe 
11 ALBA ee : 
—  RETURE 7 cig: Séadtehin cesar 52.18 
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‘supaovrise NODEL(KyLPRG,PIT, ABB) 


 Ceee 
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ceee 


Cees 


Cese 


cose 


cese 


SUBROUTING SODEL CALCULATES THE. POVRR AnD peas CORPPICIESTS OF TEE. 


SPECIFIED GOORLS PRoe THE manestoe OF SOTIOB TANGERT TO TRE FLIGHT & 


PATS 


IHELICIT pRALea(A-H,0-2) 
DIAEUSIOW PIT (2) .ST(18,_ 1%) -TS(10) ,LOC (10, 18) 
COMNOM TIME (850) FT (850), P2 (85G) -P3 (850) , PM (850) ,F5 (850) , 6 (950) oP 


17 (850) , F8 (950), 79. (450) ,F¥0 (850) , #99 (450) ,P 12850) , P13 (850) P18 (450. 


th, © (450,31) -1{450, 1) , WKAR (250) ,CPA(14) ,SGE(4), SGD{4) ,PT1 (450) P42 ( 
1650) ¢PURA (NSO) CL (850) , XX (450) ,X1 (450) “X2 (450) ,RX1,812,EX3,R8E4,G,S 
1, RKO, TIA, EEPX, PLOW, PHIGH, CDLOW,CDHIGH, IREAD, JERITE, JPUNCH, LEX1, 12% 
12,823, LEX8, BETRIC,1L1,L2,18ORN (38) LEER 

LUTEGRR IEQM (1G) /3o4%0502e hs So 7 e546 58050648 o4—5y 5,6 55/ 


DATA LOC/1,6,6,0y0,0-0,0,9,0, 1,2,6,80,0,0,0,0,0,1,2 6 e6,1050,0,0, 
10,0,.152,6, 720, 9,10,0,0,0,1,3,6,8,0,0,0,0,0,0,1, 346.8, 10,0,0,0,0,0, 
11,376.7,8,9, 10,0,0.0, 1.263,6,8,0,0,0.0,0,1,2,3,6,8,10,0,0,0,0, 2,2, 
13,65756,%¢ 10,0,0, 0,3 4% 1645 00 00 40 0 90 5143, % 5658, 10,0,0,0, 20s 1, 3,856, 
975859, 10,0,0,1,6, 7,8,0,0,0 0,00. 142564 7e890400,0,0,143, 6570850 
1,050 ¢0y 102635667 ¢8e0 50 40,0 ple 3 eh p6e7 98 20.0,0,0/ 


WRITE (JRITE, 1) 

POMMAT {1%.////,50%,29HN ODEL SOLUTIONS,/ 
WRITE (IWRITE, 2) 

FORRAT (28K, 76 ("8") ,/e28N_%9", 2HE, 2%") 

BEGIN AWALYSIS OW SPECKFIED AODELS 

DO 18 LKAB=L1,L2 

DETERMIME SPECIFIC NODEL AND NUABSER OF UNKMONNS 
JTHT=LEQUA (LKAR) 

MUN=LEQM (JCHT} 

arL=0 

CALL CHNGE (SGN) 

DO & Xx1,k 

AN=DABS (P6 (I) } 

TEST POR WEGATIVE ANGLES OF attack 

IP (F6(i}).LT.0.0D0) CALL SIGHS (SGB,18x1, 1ex2,£853, C8x4) ; 
DETERAIWE GSWERAL TERNS FOR BATRA PORATLATION =~ oie 
SE UA) BeOS tree ST EeN (evaeeceeceyy 

£5 (2) =TS(%) OFS (1) EK 

TS (3) =TS.(1) OP4 (1) oe RI2 

TS (4%) =TS (4) oR 4 (I) S*EXI 

-FS.(5)=TS (tp) OFS (1) S*ExX4 

TS (6) =-P5S (1) OS *Ph (1) &%2/(2.0D0°F 1 (1) ) 

TS (7) =75 (6) *SGM(t) OanerlLEXt 

‘TS (8) =TS (6) SGU (2) SAMOCIEX2 

TS (9) =TS (6) *SGw (3) SANS OT EX3 

TS (10) =TS (6) ©SGR (4) CANSOIE RY 


LP (P&E) -LT.0.0D0) CALL CHANGE (SG) 
“PORR CORFPICIEUNTS FOR LEAST SQUARES 


. pO.3 J=1, 008 


cess 


C (1,43) =TS (LOC (5, JCBT) )} 

RQ, 1) =F8 (I) /GeDSKu (P2 (1) -P6 (1)) ae 
SWACT LEAST SQUARES . 
CALL LLSQAR(C,X,K,LEQM(JCHT) » 14450,450, 16, WEAR, rea awaits) 
CHECK FOR ERROR 

IP (IEZ8.£Q.129) GO TO 5 

GO TO 7 
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“Cees STORE VALUES POR COMPARISON 


> gq St qacnT, 11) 2551 3 


S WRITE (2U8ITE,6) = eee see ben De a 
 & FORMAT (1%,//,10%,°ZERO-SATRIX EVCOUETERED IB AODEL.. TO BEET DATA 
BP SEP, Fe Aur.’ ,//) j ar 
 Xgaa=1 
| geTuae 


3 po 8 3=1,10 
&@ ST (ICST, J} =X (J, 1) 


_ceee DEFIBEZ COEFPICIEUTS Im CORRECT ORDER 


. BO 9 331,10 
9 CPB(J)=0.0D0 | 

—. BO 10 3=1, 00a ) 
10 CFM(LOC (3, JCHT)) =K (5,1) 


 cees DETERAIWE PIT BRROR 


SSx=0.000 
DO 10 J=1,K 
- BM=DABS (76 (J)) ? ween pe 
UP (86 (3). LT.0.0D0) CALL SIGHS(SGM,ISK1,EEX2,1RK3,1BES) 
PXC#N (4) (CRN (2) OFG (3) SOEXVOCES (3) CFG (2) ORE 2+C KE (8) OFS (J) CORK SOCEM 


4 4Sp ora (ay eons | | 
CD=CFS (6) CPA (7) *SGM (1) SAB SOLRK1¢CPM (8) SCH (2) CANSOIEXZECHA (9) #SCR- 


(1(3) SANSeLER3¢CEN (10) 8SGH (4) CANSOIERG 
Geese CHECK POWER ABD DRAG COEPPICIENT BANGE . 
IF {(P. LE. PLOW.OR.P.GT. PHIGH) . OR. (CD. LT.CDLOW. OR.CD.GE.CDUEGH) ) BFL 
—TsRPLEI 


-. $S=DCOS (26 (J) # TEA) S27 (FIC) OFS (0p) - (FS (J) FSOR4 (3) O92/(2-0D0%R1(I)) | 


— WCD6P A (3) 6 4DSIM (F2 (0) ~ FE (5) )) 
EU SSIsSSE+5S¢S5 
i IP (NFL.GT.0) SSI=1.0D+60 
cese @RITE MODEL VALUES 
EP (GETRIC.NE.0} GO TO 13 are ee 
“MRITE (JWarTé, 12} JCBT, CFE (1) - CRA (6) -CF8 (2), CPM (7) -CPR (3) -CPH (8) ,C 
FH (4) CPA (9) BFL, CRG (S) CFM (10) SSE ee fe 
12 FORMAT (28X,°**, 12, °HODEL *,12,3K,°PO > °, 1PD23.16,3E,°CDO = *,0PD 
123. 16,2h5'% 4 /,28K,%** 12a ,9P1 = §, 8PD23.16,35,°CDI = *°, 1P023. 16,2 
$0,809, /, 20K, 90%, 1K, "POINT? ,6X,°P2 = *, 1PD23.16,3%,°CD2 * *,1PD23.1 
46, 2K _9S*,/, 20K ,°%%, 1X, "PAILORES', 31, °P3 = *, 1PD23.16,3X,°CD3 = °,1 
91PD23. 16,20, °C*, /,20K,9**, VE, t=" Th, 61,54 = *, UPD23.16,3K,°CD4 = & 
Vy EPD23.16,2K 4°99, /gZHL, STU, 809, /, 28N,°%*, UL, PET ERROR= *,D23. 


116, 39K, 98, /, 28K, OP, TAX, Oh g/g QBN S8, TH (tpg 9H g/g 2BK,*O* THK, 


| qos) 
GO TO 14 
93. POzCRA (1) %1,3554t8D-3 
 pascra(2p¢1.355818D-3 
P2=CPA (3; *1.3558180-3 
P3=CPm (4) #1. 3955818D-3 
P4=CPH (5) # 1.3550 180-3 Sie ee Bate tac | Paes ee 
-@EXTE (JURITE, 12) JCHT, PO,CRA (6) .P1,CRA (7) 5P2,CPM (8) ,P3,CPA(9) MPL 
1,P4,CPK(10) ,SSK pe ae ae By gaat, a 7 


Cees DETERBINE BEST MOORL BY FIT ERROR 
. ICC#TEQUN (1) 
PIT (LRG) =ST{ICC, 11) 
po.45 J=L1,12 
> Iec=£EQwa (a) Sele, 
45 IF (ST(ICC, 115 LT FIT (LPUG)) FIT (LPRG) *ST(ICC, 11) 
pO 16 J=L1,L2 . * ; at Os 
 CC=KEQUA (J) 
OTP (ST (ICC, 11) .2Q. FET (LAG) ) BUB=ICC 
WRITE (SURITE, 2) a 
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67 
68 
69 
70 


7 


72 


73 


1 
75 
76 
7 
78 
29. 
80 
Bt 
B2 
a3 
a4 
as 
86 
87 
88 
a9 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 


706 


107 


108 


103 
410 
144 
112 
¥t3 


ts 
495 


16 
V17 


438 


Cees CALCULATE WEETON-SAPHSOB EQUATIONS 


cose CALCOLATE CL, CD, AND THEIR DERIVATIVES 


Ie (PET (LPAG).£0.1.00060) Go tO 16 
WRITE (JORITEL 17) BAB | 


17 PORBAT (20%, °°**, 212, *HODEL *,12,* POUBD TO SE BEST FIT" ,224;°98¢, 


17, 28K, °S* , THX, 8 F947, 280,76 (9 8") LS S//) 
GO 70.20 Der War a ks 
18 BRITE (JURETE, 195 
19 PORMAT (25%, °¢¢*,21X,°HO MODEL FOUND TO BE ADEQUATE®,22K,¢¢9*,/,28 
WES 888, THE, 89, /, 28K, 16 (985 ////) 
ceee. UPDATE COEPPICLENT VALUES 
20 00 21 354,10 
21 CFa(J)=0.0D0 
—« WOM=I BQN (ANB) 
BO 22 J=1, 008 
22 CPA (LOC (J, 838) ) =ST (888, J) 
aeToane 
BED 


SUBROUTIBE ¥(7,1,01.C, RIK, JoLPATE, SCAT, UCUT) 


Gees SUBROUTINE F USES THE MOREZONTAL- AND VESTICAL-PLANE EQUATIONS OF. 
(Cees MOTION TO COMPUTE COMPATIALE PLIGHT PATH PARABETERS 


EBPLICIT REAL®S (A-H,O-Z%) 

 REITERBAL VA, ODV, DODY ALP, OVA, PHIDER 

DIAEMSION ¥(%), 01 (4) ,CxX(6) 

COSNOM TH (450) JP t (850) ,F2 (450) ,F3 (450) , FS (450) FS (450) , 6 (450) , FP? ( 
9450) , FS (450) . F9 (450) - PIO (450) , P99 (450) P12 (950) P13 (50), PUN (4850), 
92 (450, 11), X (450, 1), HKRAR (250) CPSC 1%) ,SGH(4) SGD (4) PT? (450) ,FT2 (45 
10) ,PwRA (ASC) XX (450) , FE (USO} , 29850) .X2 (450) EX 1, 0X2, E35, BR4,6,5,2 
1HO, TIA, EXPX, PLOW, PHIGH, CDLOW, COHIGH, JREAD, JURITE, SPOBCH I EIT, I2E2, 
VIEX3, LEXS, BETKIC,L1I,L2,TEQUN(15) ,TERR 

COEKON /LASBB/ALE1,P1,P4C (8) ,CL,CD 


ceee CALCULATE AIRCRAFT HEIGHT 
1? (J.8B.1) GO TO 1 
¥ (1p =F 1 (0) 
GO TO 2 
VT oVCUp HET) ODE (1) * (T-TH (I~ 1) ) CDIBS (T-TH (5-1) 5) O92/2. 0000 DDI NS (T-Ta{o- 
-14p > #°376.000 : 7 ; aS 
Cc#?@ CORPUTE DESSITY PACTOR 


2 FH=(1.0D0-6. 860-6 *F (2) ) #4. 2600 
ceee INITIALIZE PARARETERS 
Icet=0 
A=P6 (0) 
TdD=P3 (3) 


Ci (2. ODOCY (1) /(GOS*RHOOPH ST (3) ) ) * (DE (4) CGDCOS (T (4) ) /T (3) ) 
C2=2.0D0°Y (1) / (G*S*QHOSPHSY (3) *¥ (3}) 
. C3IzC2“ (DIR eGFDSIMCN (Sp) 
Coes START BMEWTON-RAPHSOH LTERATION 
 Jaz0 
3 Icet=IceTet 


CALL CLCD(IR, A, TD CFR, TEX1, L202, 1EX3, TEs, EIPE,CE) 


PX=CX (1p ODTAM a) # (C34C (2) -C1 . 

PIP=CX (3) # (C3#CE (2}} / (WCOS (A) @BCOS (A) CDTAM(APECK(5) 
PUPP=CX (4) © (2. ODOOCX (5) ¢2.0D0 © (CI¢CE (2) ) SDTAMEA)) /DCOS (a) ©029CK (6) 
T9DTAN (A) 
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ee 


Cees 


GO T0 7 


case. 


oe ge -t0.3 
ceee. 
uot | FP IR=F 

_ BLP Ta 


 eD=cx (2) ae. 
BY=¥ (1) *¥ (3) / (GCOS (ALP1eTIA) ) * (DY (3) #G*S *RHO*PUSY (3) ©920CK (2) 7 (2 


BAD= (F1P/F IPP) © (P1E/E IPP} ~2.0D00(PX/P IPR) 


SOLVE POS ANGLE OF ATTACK ... 

a1=A A ee aes 
IP ((PV1P*PF1pP) .LT.0.0D0) GO TO 4 
AMASPIP/FIPPeDSQRT (RAD) 

‘GO TO 6 

A=2-P192/F 1PP-DSQAT (RAD) 

GO TO 6 

A=A-P1P/P1eR | 

BCETZSCHT eT 


TEST FOR COWVERGENCE OR MAXIMUM ITERATION | 
IP (DAS (At-A) LT. 1.0D-15.0R1CUT.EQ.20) GOTO? 


UPDATE CL, CD, POWER, AWD WEIGHT DERIVATIVES 


CALL CLCD (JR, A, TO,CPA, TERI, TEX2, LEKI, TELW, BXPX CK) 
CL=CeX (1) , 


- WoOOOCK (1) ) ¢GeDSimM tx (4)5) 
. XP (P1.LT. 0.000) Lega=i 


EF (LERE. HELO) RETURN . 
DY (4) =-c*P1 eee 
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‘OBTAIW TIME HISTORIES OF BOTH VEHICLE AMD FLIGHT PATH PARASETERS 


AMPLICUY RERL®O(A-H,0-2) 
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VE AND AIRSPEED ASSUMED CORRECT) * 30,99", /,43K,°99 454,969, 7,43K,47 BH 25 
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COMPUTE ACCELERATION DERIVATIVE 
IF (IPATH.WE.1) GO TO 2 
CALL PUL (MW, FS, TINE, ET1,ET2,0, 15,3, 2) 
C***® COMPUTE SIBIAUN WEIGHT 
_ 2. WZNPTY=P1 (a) -1.000 
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DO 16 KJK=1,2 
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IP (METRIC.HE.0) WRITE (JURITE,4) KIK 
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mn) eee) } 
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DY (4) =FT2 (1) PH Se f 
aCNT=0 PH 655 " 
uceT=0 . PH 656 ; 
Ceee EWACT SOLUTION ROUTIWE = PH 657 : 
CALL. F(T, Y,O¥,C, KIK, 2, LOATH, BCET UCUT) Pa 58 
cee. CHECK FOR ERRORS PH 59 
IF (LESR.NE.0O) aETURM ad acee PR O60 
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IF (AMETRIC.NE.O} GO TO 6 Pees, Vet Se, A PH 62 
Se WRITE (JMRITE, 5) T,Y (2) o¥ (3) 21 (4) ALEU,CL,CO,¥ (1) ,P1> = PH. 63 
S PORMAT (9%,9(1PD12.5, 1X)) ae Pe 68 SS) Cc 
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20 FORMAT (1%,//, 10X,*ALTITUDE BECANE LESS THAM ZERO. DATA KEJECTED.* PH 127 Cees PORN MEWTON-RAFHSOM EQUATIONS . Pe 45 is 
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SUBROUTINE DCR SOLVES FOR DELTA CORRECTIONS TO BE APPLIED TO LIFT 


AUD DaaG COEEPICTENTS 


IMPLICIT REAL®8(A-H, 0-2) 
DIMENSION AD (450), P (450-8) ,C (9%) oF (8) oA (8,2) »B (8) 


IMITIALIZE FACTORS AMD COEFFICIENTS 
“po. ¥ a=1,8 

FJ) =1.0D0 

“ER (C365). Ey. 0.000) F(J) =0.000 


A (5, 1),20.006 

A(J, 2)-26.0D0 

SUS PRODUCTS OF PARTIALS 
DO 2.3=1,m 


po 2 i=0,8 


(Cees 


 Cwae 


: Ceee 


5 


Cees, 


Cees 
Cave 
Cees 


. Ceee. 


1,26K,*Cia = 


A(LTPHA(L, 1) *P(J,L) OP (J, L) PF EL) 


R(L, 2) =A (2, 2)-¢P (0,4) OAD (5) OF (1) 
SWITEALIZE DELTA CORBECTIONS 


DO 3 L=1,8 

B(L) =G.0D0 

CALCULATE CORRECTIONS 

DO & L=3,8 

IP. (A(L, 1} -20.0.000) Go TO 4 


BALP=A (L, 2) /4(L, 1) 
CONTINUE 


APELY CORRECTIONS 
DO 5.L=1,8 


PL) SC (Lt5) 


C(Le5p=C (L05) +B (L) 


WHITZ OLD AND WEW DRAG AND LLOT COEFFICIENTS 
| WRITE (SURITE,6) (F (LL). B(L),C(L¢5) b= 1,8) 
@ FORMAT (1%,/7/,42%,"PATH PERPORMANCE DRAG AND. LEFT. COEPEICLEUT. upd. 
VATE" // 42," OLD! 22K, "DELTA, 22K _ WEN" // 26K, *CDO 
408,025.16," = *,023.16,/,26K,4CD1 : * 
13,.165/-26%,°CD2 : ",D23.16," * *,023.46," = *,D23.16,/,26%, "CDI 
1°,023.16," * °,p23.16,° = 
¥.16,% = ", 023. 160,/, 26%, *CLAG: 
¢, 023.16," + *,023.16," = °,D23.16,/,26K,*CLAK: 
116,° ¢ §,023.16,4 = °,D23.16,///) 


RETURN 
BuD 


SUBROUTINE SPLIWE (WL, XA, IC): 


* 023. 16,/,261%,4CD4 
2,023.16,% ¢ 


SUBROUTINE SPLIWE FINDS THE RELATIONSHIP BETWEEN eusction VALUES 


AMD ALLOWS THE CaLCULATION 


OF 


DERIVATIVES 


REPERESCE FOR THES 


HETHOD IS: 


THE THEORY 


OF SPLINES 


AND THEIR APPLICATIONS 


AND DELTAS 


*, 023. 16,°* 
*,D23. 16,4 


*, 023. 16,° 
2D23. 16, * * *,023. 16,"° 


¢ *,p23 
* 223. W64/ 


co aa 
co a9 
cD 50 
cD OS 
cD 52 
be 1 
DC 2 
boc 3 
‘oc 5 
pbc 8§=6§ 
‘oc 6 
bc 7 
BC 8 
OC 9 
pc 
oc Ot 
oc t2 | 
ec 13 
ue Py 
oc 15 
oc... st 
bc 17 
oc 18 
bo 8069 
‘DC 20° 
be 83 21 
2 
' oc 23 
oO 24 
DC 25 
oc Os 26 
De 27 
oc 28 
i+, #4 29 
oc. 30 
bc 31 
oc 32 
pe 33 
1) oo Le 
be 35 
bc 46 
Dc 37 
DC 34 
DC 39 
Dc 40 
oc 41 
bc 42 
BC a3 
SP | 
SP 2 
Se 3 
- SP 4 
SP 3 
Se 6 


Deseret errno en eg maar ymin pmevens sem emepnen mm smegma re te me eae ot ne cee wet temas come eee & 
reas ih aoe 2 A Sra ee Bi ret te aS eet ee Tal ke eR ee. GRR: tm Mea eq, ce wag ac de at 


2 5 % > athe ae ™ 
cose Jo. BNLOBEG, ET AL, ACADROIC mess, une Tom, 1967 
IMPLICIT REAL©O(A-4,0-2} 
DINERSION X(U),T(H) AR (KM), BB (81827) ,CC (8, 1827) ,00(4, 1827) Hite? S 
17) -Q.(1827) .U (1827) , BE (8, 1827) 
Cc 


uni=K~1 
do VU i=3,N81 
9 MIP zd (ke Up (kt) 


Ceee MODIPIZEO LEFT-HAND END CONDITION THAT ALLEVIATES THZ SEED TO 
Coes SPECIFY THE X-DERIVATIVE OF ¥ AT POIKT 1 


Hiz (1) 
H2=H (2) 
H3=H (3) 


(4p =V (1) © (92.0000H F642. 0D00N2021.0000N3) 7 (u1eH2) / (i domzem3p-¥(2)* 
¥(91.0004H 1642. 0000H 2622.6000H3) s(u2eW3) /HZe¥ (3) 2H 106 19.GD00—te29.0 
10. (H20H3) )/ (H1¢H 2) /H2/M3~¥ (4) OH Te (11. GD0CH T6219. 0000N2) /(N203) / {8 | 


F202 3) 7H3 
cose GENERATE LWTERWAL U (i) 


bY ALGORITHAN GIVEN BY ABLSERG 


U1) =3. Co0eu (1) 7817 16.000 


HAeH (1) 
W¥eY (2) 
 ¥ReK Ey 
pO 2: 1=2,un1 
HH=H{I) - 
mits apesi 


D2}. 000 ( (YP-TT) /HH- (YY-¥R) /BB)/ (HOH AD 


-C¥C. SDOCHH/ (HU SHA) 
: a=0. 500<c: 
P=A6Q (1-1) ¢1.0D0 
Qi} =-c/P 
U (1p =(D-aeu (1-1) ) 7P 
HA=HH 
Va=T¥ 
2 ¥Y=9P 


ceee MODIFIED RIGHT-HAND Pwo coMDITION. Treat ALLEVIATES TRE SEED TO. 


cose SPECEPY THE X-DERIVATIVE ‘OF tT. at POIsT & 


A=31.000/32.000 
; P=A%Q (H- 1) ¢4.0D0 
— #l=# (unt) 

H2=H (wat-1) 

H3=H (WAt-2) 


D=¥ (RB) *(32.GD0¢H1 042, ODO%H2¢24.000%H3) / (162) / (HTN 2¢R3) ~¥ (uty Og 
WEP ODOCH I e482 .0D04H 24243, 0D04H3) / (HZ2¢H3) sH Ze EQUA IH 1y OH 10 C12 CDG eHte2 
FES tS Seine ret re are san orm tod oQDOSE2) 7 INE 


- FeR9p Y (H14¢H2¢H3) /H3 
- DF 3.0009D/sHI716.0B0 
Uqup= (D~aet {mw-t)) 72 


Ceee SOLVE POR THE SPLINE CORFFICIZETS CORRESPONDING TO AHLBERG 4(0) TO 


ceee ACN) AMD STORE THER IN THE U(T)} 


DO. 3 J=1, NNT 
I=u-J 
2 U{T) =Q (1) OU (Le t} UT) 


Ceee FORM THE SPLIWE COEFFICIENTS FOR THE CONVEWTIONAL FORM G? A CUSIC 


Cees 


PCLYNCALAL FROM THE UCI) 
gU=0 (1) 


: : 
wpe gh TE 


KR=F (1) 
¥¥=1¢1) 
pO & I=1,mN1 


SERRE rw ee 


€2: ithael: Raion 


oR RZ Lit 


Bae abs eae 


nas 


STR 


ia = a abr 


Pa 


ai omelet 6 


phe. 


7 te pak Se pial ne elias tench Ble 


Le wena ST TE 


wtf 
ah 


SGA er bea oe Kestreaxgutes. a : 


cop 


: Ceee. 


cape pe rmeempt gina picesinn, £ Serene > Oe ees ee 


US=R QL et). 

ER=K (LOS) mn 

YR=V (rely | 

HH=H (I) . 

aa (1,1) = (ue- uu) /HH/6. D0. | 
aa (2,15 290.5008 {PeUU-Exe0R) /Ne 


“se 
SP 
sP 


se 
se 


aa(3,%)=0. SDO° (UPeRKexx-UUSXPOXE) /UKS (UU-UF) PUN /6. poe (19-18) 7H se 


ViVVORP-¥POxXe) /HH 
MX>XE 

UvzUP 

yy=re 

3” (1C.2Q.0) GO ro 13. 
STORE COEFEICIZENTS FOR LATTER USz 
GO TO (5,7,9, tt} -IC 
DO 6 r=1,0at 

DO 6 31=1,4 

BB(It,T) hail, 1) 
GO TO 13 

Do 8 [=1, mat 

DO 8 Jt<1,¢ 

CC (34,1) =A (Ut) 
Go. TO 13 

DO 40 £=1,uaN1 

Bite) 16 «J1=1,4 

OD (JU, 1) =safsl,L} 
60 TO 3 

DO t2 r=4,0Nt 

DO 12 Jl=7,4 

Eb (31,1) =Aad jst, 1) 
BRTURN 


EnwTRY VEX (T,Z} 

DETERMINE ALBSPEED AT TIME T 
SP (T.GT.X {ip} GO TO 14K 

{=1 . 

GO TO 16 

DO 15 (=1, #8? 


iv ce CEL SLESE CANCE UES SCOTT) a TO 16 


CONTE NUL 
k=uat 


Z= ( (BH (1, L) *TOBS (2,1) ) OTOBB (3,1) ) TOUR (4, iy 


R2eTURN 


 EWTRE YVK(T,2) 
DETERALME ACCELERATION AT TiMe T 


“YF (T.GT.1(1}) GO Te. 19 


§ 
43. 
10 
4" 
ie 
43 
c 
cose. 
a 
16 
cose 
ee <2) 
GO TO 19 - 
°° 37 DO 18 r=1,Ne1 
io ke geen. LE. T.ANUK (I*1) G7. Tj GO to 19 
Ve CONTINUE 
> Taw 
9 
Cees: 


Z=({CC le 1) *Tecc (2,1) *Tecc (3, 1)) eTOCC (41) 
SETURN 


RUTRY DDVKX(T,2) 
DETERMINE 2ND AIRSPEED DEGLVATIVE AT TINE T 


IP (T.GT.X(1}} GO TO 20 
I=1 


Aaa, t= ea ener eee ee OL»: CERES A TEU SEEN SON e-Q08* SP. 


Se 
‘SP 
se 
SP 
sp 


se 
SP 
se 
SP 
. SP 
SP 
SP 


SP 
SP 


SP 
se 
SP 


SP 


SP. 


SP 
SP 
SP 


SP 
sP 
SP 
se 
SP 
Se 
SP 


SP . 


se 
se 


SP. 


Se 
se 
SP 
SP 


SP 


SP 

-. §$P 

SP 
. SP 
‘SP 

se 


an aT ee I ee 


6? 
68. 
3 


FW 


Te 
73 


78 
3S 


76 
W 
7 
73 
80 
31 
a3 
a4 
65 


. 86 


87 
a8 
89 
90 
91 
32 
93 
94 
95 
96 
37 
9u 


100 
103 
102 
103 
104% 
105 
106 
107 


108 


109 
170 


499. 


tt2 
443 
tt4 
115 
196 
47 


16 
949 
SP. 


120 
421 
922 


t23 


1248 


125 
126 


20 


ray 


GO TO 22 


00.20 I=t, wnt . | 
ae (x(t). ik. T.aub. 1¢K64) «62.7 GO TO 22... 
COBTINUE 
teust 

Z 2=3. 0D0eCC (1,1) 8708202. OD08cc 42,4) eTeCE (3, I) 


RETURN 


QUTRBY AXN(T,Zj 


Ctes 


OSTEGAINY ANGLE GP ATTACK AT TIAe Tt 
LF {T.GT.X¢1)} GO TO 23 


_i=1 


23 


24 


25 


csees 
26 


27 
28 


Cees 
cess 


Cees 


EP (WB.LE.1827) GO TO 1 
wuts} 
ws=15 


ceee 


GO TO 25 

DO 24 I=1,"81 

LP (X.(I) LET. AwO.K (X64) .GT.T) GO TA 25 
courruug 

c=ust 

22 (00 (1, 1) °TeDD {2,1} } TOD 3, 1)) Tedd (4, k} 
aersan 


EuTRY ODDYX(T, Zz} 


DETERHINE 38D AIRSPEED VERIVATIVE 
LY (T.GT.X{1)) GO TO 26 

“y= 

GO TO 28 


pO 27 1=1, unt 

SP €X(2) LE. T.AMD.X (i¢3).GT.T} GO TO 24 
COBTIRUE 

T=MA1: 

Z2= 3. QDOSEE (1,1) *TS92¢2..OOCFEE (2,1) *Te EE (3, 1} 
RETURs 

ERO 


SUBROUTINE Ful (Kk, FeXePP, FEC, MDeNS,NIeiC) 


SUBROUTINE PUI USES MEUTON*S INTERPOLATION FORAULA to COMPUTE | 
ADDITIOMAL POINTS FOR CUBIC SPLINE ABALYSIS 


IMPLICIT REAL (&~H.0-2) 


DIMEMSION PEK) KUK) CPP ER) , PPP EK)  XYEVE2T) ~¥(UdL7) aah, VH27} PPS {3 | 
1827) 


TUE ARRAYS ARE PROTECTED AGAINST *OVERFLOW* BY THE FOLLCWING CARDS FM 


NB=Ke (X~-1) ONE SZeus 
IF (MH.2Q.K) GO TO 4& 


MB=Ke (K-10) ONTO ZENS | oo. eee neem 


ANITIALIZE PARARETERS 


H=X(2)-2 (1) 


Xr=-H | 
AC=QABS (XM7 (USO 1) } 


XKH=DABS (4X) +X (K) 


_ CH= kC 


&=¢ 
Lat 


SP 
SP 
SP 
SP 
Se 
SP 
Sse 
SP 
SP 
s? 
SP 
sP 
se 
3? 
SP 
se 
se 
SP 
se 
3? 
a? 
SP 


se 


SP 
se? 
SP 
se 


SP 


se 
Se 
se 
SP 


127 
128 
129 
130 
131 
132 
133 
13% 
135 
136 
137 
138 
139 
140 
te 
442 
103 
‘ya6 
165 
106 
19? 
TT 
ta9 
150 
1$3 
152 
153 
150 
155 
156 
157 
158 


~~ 
OCadtaweunva 


to 
oh 


we ad wt an ot os wt 
SAW aw 


¥9 


ee a 


St reetne ante 


AMITViS 200d dO 
$I GOVd TVNIOIGO 





; 
: 
* 


a ah 


‘are 


Nd Fe 3 


obs, 





Tis A A REET mT CENT NG Oe ON TER TY 














diane deetiaieeeen te 


So tn ian ae 
e bes 


pan a ee 


v9 


> Cees 


Cees 


i 


2A=Hed | 


DETERAEME THE TMTEGVAL Im QUESTION 
EF (ORGS (XX-XEH) OLT.DP) KX=XXH 

ER (AXGEL1KH) GO TO 3° 

AP (DBS (XX~-K (L)) LT. oP) rx=K (L) 

EF (DAS (XX~K(L63)) LT. DE) XX=K (LO 1) 

IF (XE. EQ. 4 (L643) AND. MK.LT. 4 (K) ) L=L01 


iP (OABS (XX-K (J~2)) LT DP) KX=X (J-2} 


Cees 


TP (44,8000 (J~2) AWD. LT. Ky J= 008 
COMPUTE THE WEWTOMIAM COEFFICIENTS 
A0=F (3-5) 


ts AVS (EB 4d-4) -P (3-5) ) 7 (x (0-4) -X (9-5) | 


ceed 


ype RSD = ERO U8 CF) = I 5) 017 C1 (3) = (9-5) ) © (-3) - (He 
as) 23 Sty Sin. sick 
Pye Coe 2) = (AO oA Ve (x (3-2) —4 (9-5) ) #429 (X (5-2) = (3-5)) © (KUNZ “ik (de 


NWYVNZ CO 652) =x (4-5) p © (44-2) 1 (3> 4) ) © (4 (9-2) = (9-35 )) 
ap ee ay IT ERGO AT 9 Uk (3-1) ox (3-5) ) 028 (LCI 1) 2 (F>5)) 8 UK (d=) “4 Cae 
SPE PTY m5) 1% (1 I~ 1) 113-4) ) LUI 1) 8-3 IZ LO Cn ce 
ey TOTS dd (LGTY) oK (S~4) ) & (4 (9-1) =X (3-3) ) # (KLS-9) -¥ (9-2) J} 

GP SEES Gea Ve 1 Ga) ~4 63-5) 6028 (4 C3) (5) © (4 (SYK (4) | O30 CX 
seedy eee cag EIA AM) ) 8 (63) =H (5-3) ) eave (K(3)—H (9-5)) © (Raed 


Tag CEES) E31 OES) 1-299) COE) =H (S-5) ) Ed od ede pe oe 
VED) 3 (0-3) (KS) ~ x (9-2) © (000) - (5-99) 

COMPUTE ADDITIONAL POINTS BY INTERPOLATION 

Tal g RES k=K (375) ) 6420 UK x (3-5) ) # OAH (5-4) OADe LEK (5) ) 0 


© MAC (0-4) 9 6 GL 9-3)) 6A CO HGI-5} } * UE eure ae roy eee 


Coes 


| Cees 


Coes 


Cees 


Cees. 


ew 


TeAPe NN AS * MMH (I-59) © EK GI = 4) ) # EHH (9-3) ) LH 0-3) 2 Lot 
1~4)) ; 

XY (Mp =XK 
DETERMINE INTERVAL CTaCRLAEN 

EP) GER. GES A (1) (AND. XK. LTS HK) ) C= (L(Y GL) ) 7 (RE ON) 

TP (44.5GE.0(K) ) MC=xXCH 

GO TO 2 

KN=-1 

EP {Nd.EQ.K) KNEK es 

CCHPUTE SPLINE COEFFICIENTS 

CALL SPLUNE (KN, Y,XY,AA,1C) 

EF {IC.NE.0} GO Ta 9 = os pitti, PL 
COMPUTE PIBST DERIVATIVE BY DIFFEREWTIATIOS OP SPLIBE FIT 
Lt=4S¢1 ff eee : 
L2=KN-NS 

LI=NIe 1 

Tr=0. 

DO 5 4=L1,1L2,723 

“FI=EEe 


: J=] 


AF (1. By.L2) 3-4-1 ; Jack. eta. fab Se thaioe ing 
COM ye COPA (held SHIT) $8262.0D00R8 (2,4) OXY (E) ¢A (3,4) 
CONTINUE. er a a 
CHECK POH SECOND DERIVATIVE BEQUEST 

IP (Mv.EQ.2) GO TO 6 ee Ve 

GO To ¥ iar us 

CCAPUTE ALL FLRST DEREVATIVES FoR SOLINE FIT © 

DO 7 1=1,KK_ e 

aa . oe 
CP {f.EQ.Kupa=5-1 . 

COR Aue eee AAV ed) OXN (1) #9262.GD50KA (2,5) 8X0 (I) #AA G4.) 4, 224 3: 
COMPUTE SECOND DERIVATIVE BY DIFVEREMTIATION OF SPLINED FIRST 


de 


27 


28 


29 
30 


3 


32 
433 
3a 
35 
36 


3a 


39 


40 


41 


42 
43 
ery 
%5 


u7 
“6 
4&9 
50 
af 
52 
33 
54 
55 
56 
57 
$8 
59 


6} 
62 
64 
64 
65. 
66 
6? 


68 
69 


76 
Lai 
72 
LA 
Ty 
75 


36 
797 
78 


793 
80 
oR | 
82 


a3 
pu 


85 


Ccese 


Cees 


Ctee 
Cees 


Cose. 
Cees 


DERIVATIVE 

CALL SPLINE(KN, PPS, AY,AA,IC) | 
m-00° °°! 

dO a I=L1,12,13 

TI=IIe} 

ad=I 


CONN DE eee A (Yod) OXE CI) #9202.GD0%Ra (2,3) £4 (1) 948(3,5) 


CONTINUE 
- RETURN 


FUNCTION VA(T) 


PUNCTION VA (WITH SOLEUE) DETESALSES THE ar 
IMFLICIT REAL®8(4-H,0-Z) 


CALE VEX{T,X) 
VA=X 

SETURE 

END 


PUBCTION DDV(T) 


AIRSPEED AT TINE T 


PUUCEION DOV (wITH SPLINE) DETE2RIMES THE SECOND DERIVATIVE OF 


EMPLICIT REAL®#(A-H, 0-2) 
CALL DDVXX (T,X) 
DDV=x 


RETURM 
eu 


‘FUNCTION DODY (1) 


PUNCTIOW DODV quITH SPLINE) DETERAIWES THE THIRD DERIVATIVE OF. . 


AIMSPEED at TIme Tt 


~LSPLICIT REAL (a-H, 0-2) 


CALL DDDVX (7,4) 


‘DECDV=x 


RETURN 


EMD 


Cc 
Ceee | 
Ceee 


*¢ 


FONCTION ALP (T) 


PUNCTION ALP (WITH SPLINE) DETERAINES 
TIME T ‘a 


QSPEED AT TIRE rT 


THE ANGLE OF ATTACK at 


ru 


PT 
Pu 


ra 
ra 
Fa 
ru 
vu 


va 


at 


va 
va 


va 


va 


v2 
v3 
v3 
3 
vi 


va 


Wi 
¥3 


aa 
aa 
aa 


aa 


@"OVAWNO Naw 


wh nb 


We iw Wi : 


a6 
a7 
6s 


a9- 
- 90 


92 


93 


94 
95 


=. - 
OO GWAM @wAi 


eCe oO UR neene 


ARS OR Ae ee AA tte a NS BR SIRES TE RaW ecenie en ven 


Simtag pect 


pot wee ES 


we ed ‘a ale . » ar gen. 
ee Sees Rit canna 


. 
SN re Ea 


be Bere Mil ac ate recy bes ech OR 


ile aebeieel itis Betas abt bead 
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f 
g 
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§ 
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2 Nee paler dag abil aes OAD eat Te ia UK NAb teptany acm rtentageen secre 


De ee 
Te Rees bo Bien 


ee te al 


pecs SS, Boe 





Cop 


- Coee 
- Cees 


CALL AKK (T,X) 


ESPLICIT REAL®8(a-H,0-2) im 


ALP=Xx 
aeTuas 
eup 


FUNCTION OVA (T) . 


PUBCTION DVA (WITH SPLINE) DETERAIWES THE PLAST DERIVATIVE OF - 
“AIRSPRED rae 


 ‘ESPLICIT REAL®S (A-H,0-2) 


CALL DVK (T,X) 


DVA=1 
RETURD 


BND 


.  Cese 


“SUBROUTINE Fr (T,YY,01Y,F, [ERR DGAM, AP, IP) 


SUBROUTINE PF COMPUTES THE DERIVATIVE OF THE FLIGHT PATH ANGLE 


ABPLICIT GEAL¢8(A-8,0-2) 


EXTZRWAL VA, DDV, ODDY, ALP,DVA,PHIDER 


-COSNOS BIRE (450) oF 1 (450) , P2456) PI (850) PM (450), FS 1450), P6 (450), F 


PERSO) » FB (450) - F2(450) , PIO (450) P14 (426) ,F 12 (450) , P13 (456) , F148 (456 


|g (4506 441) KCH5O, 1) , WRAR (250) ,CRW (14) SGM (4), SGD (4) «FTI (450) , PT2 ( 


1450) ¢ PUBA (450) ,CL (450) , SS (450) .X1 (450) ,£2 (450) , EX1, 242, EX3, EXS, G,5 
1, RHO. TIA, EXPX, PLOW, PHIGH, CDLOW,COHIGH, JREAD, JURITE, JPUBCH »IEXT 12% 


“V2, %EX3, TEK4, METRIC, LY,L2,1EQGHN (18) , TERR 


COMMON /LABT/A,%, 9,21 


COMNON /LABU/X BHO 


. CORNON /LAB5/G4L, DSAX,D2645,D3G8 


. Cese 


Cone 


-. Cece. 


STORE PLU ee com eee CEM (3) * Y9PELZ0CER (4) CLOSER IOCPA(S) OLOORLE 


CCOBNON /LABE/T1, ADT 


S#T PARAMETERS FOR ESTYMATIONS 


— PTR=0. 2600 


KF (1288. 20.0) CDL=0.000 
Y=¥A (Tj 
COBPUTE PourR 


STO@E VALUES TEMPORARILY 


AXE=A 
RXX=R 


Cees. 


Coes 


D¥K=DVA{T) SS Re 
CHECK FOR IMITIEAL TIAE POINT 


EP (T1.2Q9.0.010) Go to 1 


COMPUTE AIRSPEED AMD ACCELESATIOS“ AT PREVIOUS TIME POINT 


- 2=T 


¥=VA (2) 


 DU=D¥A(Z) 


¥V2=DD¥ (2) 


— -W3=DDDV (2) 


a = 


BA 


aA 


oo ' ' 


aa 


‘BA 
a Y 


by 
oF. 
oY 


by 
bY 
DY 


BI 


oO 


=> = ; 
mOeoesn 


MOO GVH N Ew ow 


Oaow FUN @ by WD ow 


Coes} 


‘COMPUTE DERIVATIVES AT PREVIOUS TIME POLUT 

DM=F9DSIM (GARI) 

O2ZH=DVODSIN (GAS) ¢GSMKe¥SDCOS(cay), = 7 a 

Baus (V2-¥9DGAK eDGRK) ¢DSIM (GAX) ¢ (2.000°D¥°DGRIe VeD2GR) #DCOS (GR) 

ohn dea ecg SOGAR SD 2G8- 3. COG*DYSDGAL©e2) 9DSIB (GAZ) © (3.0000 ¥20BG 

IAE~¥ ODGAL605¢3,000°DVeD2GAReVeDIGH} SDCOS (GAX) ae Ve 

TAT I=T-71 

ESTIMATE ALTITUDE . 
eee rot 1# (De TAT 1¢ (D2H/2. ODO+TAT ¥¢ (D34/6.0D0¢TATI©DEN/24.000) )) 

ESTIMATE DENSITY 
_ B2ERHO® (1.0D0-6. 66D-L0H) 904, 2608 
'- RWET=R2-8 
COMPUTE POWER AT PREVIOUS TINE POLST 

Pec eae td ¢CPA (2) *VO*EX TOCEN (3) OVOCOEE2¢CPA (4) O¥SOERIOCPH (S) O¥eOR KE 

DETERAIUE WEIGHT DERIVATIVES AT PREVIOUS TINE POLIT 

DUz-Fepy 

D2W=~PeDVe (EXTSCFN (2) VS (EX 4~ 1.000) ¢£42°C FM (3) #¥O0 (EXZ-1.000) 0213 
VOCFR (8) OVO (EX3~1.0D0) SEXU®CEA (5) ©¥e8 (Px4-4.0D0)} 

Oaus Fe (D¥sezs (EXTSCER (2) (EXI- 1.000) © Vee (EX 1-2.0D0) ¢E12°CFN(3) © (E 
{52s 1- ODO) eee (ExX2-2-0D0) + BX39CEM (4) © (2XI-1,0D0) oVee (EX3-2.00) +Exd 
Tene ead « (ELA~1.UDO) o¥ee (2x4-2.000) ) ¢¥ 2% (EX 1OCRN (2) #¥8¢(Ex1-1.0D0) ¢ 
VER 20CPA (3) OU%* (EX2-1.0D0) + EXISCEN (4) ¢V08(EX3-1.GD0) eLXUOCER (5) 0Vee 

Dees Fe CCEXVSCPR (2) * (EX1-1.0D0) © (EX1-2.0DG) ©¥80 (2x1-3,010) +Ex2°CKH 
1 2) 6 (2K2- 1.000) © (2X2-2.0D0) *¥¢* (Bx 2-3. 000) +EE3*CPA (4) © (EX3-1.0D0) © 
1 LEX}. 2-ODG) Vee (£13~3.0D0) sEX4 eCEA (5) © (BX4-1.0D0) © (EX8-2.606) OV 
TEEN” 3-000) ) eD¥9#3+3.OD0¢DVev2¢ (RISC PH (2) © (E13~1.0D0) ¥e0 (21 1-2.05 
YO) SEX29C PR (3) ¢ (ZX2-1.000) ¢¥e* (Ex2-2. 0D0) ¢ZX3¢CPA (4) © (EX3-1.0D6) o¥8 
Fyre oe 2 OHO) s EXU SCE (5) © (EX4-1.000) ¢V® (RE4~2.000) ) ¢¥ 30 (LK 1SCFE (2) © 
Vere EXE 1, 0D0) +EX29CPH (3) V0 (2X21. 0D0) CEL IOCPA (4) ove (EX3-1, 000) 
VOELSOCPA (5) *¥ O° (EX4~1, 000) j} 


cees 


Case 


Cees 


cere 


Ceee SSTIMATE ANGLE OF ATTACK 
AX=ACAPOPTROADTSTATI 
aP {IPRN.WE. 0) AX=ACAPOPTROADTST AT TPAFOCDL 
Ceee PSTIBATE WEIGHT 
Pep ee AFO (TAT Ve (DW OTHE te {D2U/2. CDOSTAT 3% (D34/6. O06 TAT 1¢DUN/24.000) 
: Wh 
ceee ESTIMATE DENSITY 
SX=-ReAF°RWET 
A=Aax 
2x 
R=8K 
GO TO 2 
Y A=A4XE 
B=UXE 
R=RIE . 
_Ce*® COMPUTE DRAG COEFFICIENT 


2 AM=DBSS {aj ; ea ee, 

IP (&.LT.0.°90) CALL SIGHS (SGM ,TEX1, LE%2, 1843, 1LX4) 

CDSCPH (6) #SGM (1) CFA (7) *ASOIER I ¢SGM (2). 0CEM (8) SANOOLELZeSGH (3) OCER 
149) °AMO*TEXI¢SGH (4) OCPN (10) CAN@CIEXS 

TF (A.LT.0.000) CALL CHNGE(SGR) 

ESTIMATE A FLIGHT PATH ANGLE FROM THE EQUATION OF ROTION 

ARG=PODCOS (A) / (W*T) -B*S¢TSTSCD/ (2, 0D0°K)-D¥E ZG 

DARG= = (PODSEM (A) / (WeX) OROSCL OT, (2.000 eu) © (LEXTOCEM (7) ea0* (LEXI-1) ¢ 
Tera g cen (8) Shee (TEX 2-1) SLEXIOCEH (9) 490 (IEXI-1) CIEXWCFA (10) ©2008 (7 
VEX4~1))) 

GAN1=DARSIM {ARG) 
- OGDA=DARG/ (DSURT (1.0D0-ARGeARG) } 


Cees 


vr 
rr 
ts 4 
vr 


Fr 


PF 
Pr 
rr 
er 
FP 


ia 


rr 
rr 


- FF 


vr 
rr 
rr 
td d 
PF 
re 
FF 
FF 
FF 
Pr 
rr 
rF 
FP 
Fr 
Pr 
rr 
Pr 


FF 


er 
FF 
PF 
FF 
fF 


rr 


PF 


rr 


rr 
rr 
er 
rr 


vF 


rr 
re 


ii «= 


Pr 


Lis 


rr 
fr 
FF 
FP 
Pr 
a4 
PF 


30 
39 
a0 
a 


.. 42 


“3 
Qs 
a5 


a7 
‘ee 
ey 
SO 
51 
$2 
53 
5Sé 
$5 
S6é 
ST 
58a 
59 
66 
61 
62 
63 
64 
&5 
66 
&7 
68 
69 


7 
72 
73 
1% 
75 
26 
17 
73 
79 
80 
a1 
82 


a3 
a 
as 


86 
4a? 
86 
69 
96 
St 
92 
93 
94 
95 
96 
97 


WRIT 


WOO .TO 
rj 
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4 rates 
bydeg 


SI HOV 


h 


rf tte YS ae = 
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4 


ae Toe nn 


TST js See 


ee EM ort 


Seoiok a. 


Pee SPIE EST 


MI 








he RITE ET ee 


ne ee ed 


I ek te tin ike 


vo RS. ' a : A 4 ae 2 
oat) rate 


997 


_ ceee 


Cees 
Cee 


Cees 
Ccese 


cess 


3. 


DETERALUE DIFFEENCE Ik * PREDICTED! auo ‘ABOVE estIMATLON oF rLicut ¥F 


PATH ANGLE 
DGAK=YY-Gant 


DETERAINE A. CORRECTICH. TO ANGLE ‘OF ATTACE TuaU DERIVATIVES oF 


EQUATION OF NOTION 
IF {LK@.EQ.0) GO TO 3 
ADEL=DGAB/OGDA 
-CDL=CDLeADEL 


- COMPUTE DERIVATIVE OF FLIGHT pat ANGLE 
Boa ee ee yaa eee AP ECRA (12) A ccRH {13} eASELPK) /(2> .opoew ecere 


(A) / (WETSY) -GOOCOS (TE) /T 


 XRHO=R. 


=AXK 
at . 


WW 
| R=AEX 


Cceoe 


Cost 


Cees 


RETURS 


EMD 


 SUBBOUTERE THEWOR(HUK, UY, 02¥,DI1, DNF, TSET, PF, LERM, KK, IK) 


SUBROUTLME TREMOR PREDICTS A Peete TRAJECTORY 


IMPLICIT REAL®S (A-H,0-7Z) 

EXTERNAL Ta, DOV,ODDV,ALP, Dva, +PuTDER ie 
COMNOM /TEST/ECK? : 
-CONnNOM /LA83/5GAR 

COMNOM /LAKH/T1,A07 


_ COMBOW /PCR/DYF (7). £47) 007) 


COMMON /LABY/IWRITE, LB 


* coanou JCRCOSP /PgAG,AT, 02,83 644,85, i 


IWITEALEZE PARAMETERS 

‘AP=0.0D0 | | 
-ERP=000 | 

‘COBPUTE: DERIVATIVE AT. BEGL ENING oY IMTECEAL 
CALL OP (XK, 11, 020, PF, TPRA, DGAN, AF, IP) 


py gv; =p20 


Coes. 


Ceee 


TUSK 


TEST POR INITELALLZATION 
IP (ESET) 4,171,737 
LIMITLALIZE PARAMETERS 


. pO 2 I=1,7 

Cap stT 

OL) =dD2Y 

a abs ere 5 

BEGIN BUNGE KUTTA- 
 £R=6 . 

K=1- - 

ISEr=1 

Go Ta 4 


cree 


Coos. 


LE (KET. 7p RKO 
LP (K-77) 4,73,7 
DEFINES VABIABLES ror Fe 
T2=Vy¥ied. 5D0*H*D2Y. 
AP=0.:500 
1xe=0 
COMPUTE DERIVATIVE AT ENTERVAL AIDPOENT 
‘CALL Pe (X¥40.5000H, Y2,DY2,F. IPRA, DGARAP,IKP) | 


vF 
FF 
er 


. PR 
PF 


Te 
TR 
TR 


TR 
TR 
Ta 
TR 
TB 


Ta 
te 
TH 
Ta 
Ta 
TR 
TR 
TB 


. TR 


TR 
TR 
Ta 
TR 


TR. 


TR 


Ta 


Ta 


To 


TR 


TR. 
TR 
. TR 
TR 


TR 
TR 


“TR 
TR 


TR 
TR 


TR 


9a 


93 
101 


102... 
303 
4. 


106 
107 


408 
103 


410 


at. 
“112 
~9a3- 


1ts 


Oo Mal & Se ty ow 


y}=1700. 5D0eu*DY2 


Ceee UPDATE DERIVATIVE AT INTERVAL BIDPOLUT 
7 CALL 7F (1K 00.5000H, 13, D13,F -TPaN,DGAA, AP, IK) 
Coes APPLE COAMECTIVE PROCEDURE FOR aUWGE XUTTA 


EP (DABS (O¥2-D22).LT.1.0D-15) GO TO 5 
P=-2.,000¢(D¥3-D¥2Z)/ (0T2-D2T) /# 
IPF ¢ (PCH) LT. 3.0D-04%) GO TO 5 


cose COMPUTE *STLPP-EQUATION® F COEPPICIENTS 


rO=0.0D0 


IP ((-PCH). LT. 174.673D0.AND. (-POH) .GT.-1H0. 218D0) FO= ADERE (2 ehnt: 


Pie-(F0-13.000) sP7H 
P2=-(F1-1.0D00} ses 
P3<- (82-0. 500) s Psi 


ER=YVeH* (2. ODOSDYJeP2eD2F* (P1-2. ODOePF2) +D¥ 2¢PeH*F2) 


ar=1.000 
IxP=0 
GO TO 6 


cees) SET F COEFFICIENTS TO STAMDARD ADARS~DASHF OATH F COEFPICIENTS 


§ Fi=t.000 
220.506 
P3=1. 666666666666667D- 1 
P=0.0D0 
BHALYeH* DY 3 
ar=1.000 
IkE=0 
Csee COMPUTE DERIVATIVE af EMD OF EMTERVAL 
6. CALL FF(ZKOH YS, DIG, F IPRA, OGAK, AP, TKR) 


B=- 3.020 *(D2FePeYT) +2.000% (D¥2Z+PeYx 2) #2. cpeeiiaemeraie (DrsoRerdy . 
C=4. OD0e ({D21¢ POYY) -(DE2¢POX2) — (DY Ie PFT 3) + (DYN*POES)) | 


UR=EYY He (D2 OF 1¢G¢P24+COF3)} 
IKE=1 


Csee UPDATE DEREVATLVYE AT ESD OF INTERVAL GY CORRECTOR 


CALL PF (XH, TA, DVR, F, IPRA, DGAA, AF, INP) 
IkP=0 
GQ TO ¥4 
7 IF (LPRA.NE.G) GO TO 9 
po 8 [=1,6 
¥(LpHT(Iel) 
DY (1p =D (E¢t) 
8 XqIp =X (11) 
XK (7?) = (6) +H 


eee CALL PREDICTOR TO pReorct ¥ AT SEXT POINT 


9 bo 10 [=1,6 
30 CALL PHICEF (I) 
K=7 
LK=LKet 


PROCT= (1) #PHIDER (6, X(7) o> 1, 1,0) ~BHTIDER (6, K{U.-l, ce 0) 


Cees OSING PREDICTE® 2, COMPUTE ITS DERIVATIVE 
aF=1.0D0 
LKP=0 | : 
CALL FPK(), PADCT, CYP, F, IPRA, DGAN,AP,1KE) 
OY (7) =D¥PR | 
CALL PHICEP (7) 


Ceee GENERATE COEPPICIENTS WECESSARY FOR ‘sTIPF- ZQuarroue CORKECTOR- 7 


CALL PCEP 


Cees TEST FOR SUITABLE CGRRECTOS 


IF ({P*HH).LZ.3.0D-02) GO TO 42 

IF ({P9HH) .GT.22.0D0p) ICKPE=ICKE CT 

LY {(P*HH) .GT.22.0D0) SRITE (JURITE, 11) 
11 PORMAT Bd eda > 22.0%) 


ta 
Te 
tr 
Ta 
‘Ta 
TR 
TR 
te 
Ta 
Fe 


TR 


f. eae ne 


haw ek 


coe 


Pane tat tee 


et Wee = eto 


oe eee ee ee ee 
RAE ayn ee eae eae Se yer 


sete ee 
wee! 


wat, 


neti gen. 


ee 


Pecek ge cae te correct 


TeoRT stem 


Dott get all Gh aye auiticateee 3 bed 2. ie neha 
. Bass “uss | : ercuerias a a : 





Cees 


Cees. 

12 

“43 
coos 


4 LAGS KS i 


NAME, 


cose | 
coos 


148 





“18 


cess) 


ei cat > I can eereeminremmerrrs 7° xT ee: 


Cees. 


 Ceee 


‘ 
i, 
v 

: 
f 


Lob 








5 as 


‘SUBROUTINE USUB(M, PTH, WH, OWBITE) 


coon: 


a 
ra 


copugcr ¥.BY 'STIRY-BQUATIONS cOMRECTOB 


CALL PMETH ne 

CORRECT ¥ BY mODIPLeD TREANOW CORBECTOR = == 
TCT) =¥ (1) ¢PHEDER (7, 2C7) o~ 1,940) -PHIDER (Te K (1) o> Ne B00) 
COMPUTE 1ST DERIVATIVE OF FLIGHT PATH ANGLE 

AP=1,000 

IKP=1 


CALL FF (1(7) .¥R, DIR, PF, LPRM,DGAN,APSTKP) 


DY (7) =DYR 
COMPUTE 2ND DERIVATIVE OF FLIGHT PATH ANGLE 
D3Y=PHIDER (7, K (7) Ve 1203 


COBPUTE IRD DERIVATIVE OF PLIGHT PATH ANGLE 
DUY=PHIDER (7,007) 226429} , 


TEST FOR POSSIBLE ERRORS 


KP (1PRN. WE. IK AND. KK. 20-0} GO TO 18 
IF (LK.2EQ.7) GO TO 17 

IF {LK.GT.7) GO TO 16 

po 15 [=1,6 

yapsraedy) 

PY qIp=DI(1e 1) 

a(Ip=K 11) 


XQ7j)=1 (6) «8 
WT) =e 


DY (7) =Dra 
IF (K.2Q.6) GO TO 9 
¥¥=¥ (7) 


-D2"sD0 (7) 
MME E (7) 


aetuaw 


‘SuBROUTINE WSUB PITS THE WEIGHT TISE HISTORY WITH a TRIGOAETRIC 


POLYWOMTAL auD CHECKS ITS DEALWATIVE FOR DECREASING WEIGHT... 


 EMPLECIT REAL#B(A-H,0-2 


} ‘ 
“DLAERSLON P(N) TH (CM) Wid (MDC (45059) ok (450, 1) ,K (250) 


 ‘YWITIALIZE PARAMETERS 
PI=3. 14159 265358979300 

. TT=TA CM) 

yT=ePLL/tt 


FORA LEAST-SQUARES COEPFIECIENTS a 
po 1 J=1,8 


_ TERP=P (J) -F (1) 


‘wr=1.000 


Ir (5.20. 1.08.5. EQ. 8) UT=Wenen 


T=TA (J) 
TX=T/TTOPI 


Ee qa, Waetet 


C{3, 2) =WTeDCOS (TX) 


CUI, 3) =WT*DSIN (TK) 


Cd ,4p =WTSDCOS (2. 09TH) 


oS ey my 


rete 


ar 


| ii 


102 | 
63S; 
04 - 
105 
106 


107 
104 


109 
140 


2 4tt 


112 
143 


418 
405 


116 


aay 


148 


419 


120 
421 
$22 
123 
124 
125 
126 
127 
128 
129 
130 


431 


132 
133 
134 


Wed AWE Whe 


. Cees 





C(d,5p=UTODSIN (2.0°TE) © 
C3, 6) =UFODCOS (3. OFT) 
CEJ, 7) =eTeDSIN (3.0°TK) 
CJ, 8) =BTeDCOS (4.0eTH) 
CI, 9paeTODSEN (8. 04T) — 
1 205,19) =WTSTENP 
- PRACT LEAST SQUAKES 
CALL LLSQAR (Co No 9, t, 450, 450,15 WK, LER, JURITE) 
po 2 J=1,8 Y 
T=T8(J) 2” 
TX=T/TT#PL 


cove COMPUTE. ABD CHECK WEEGHT DEZIVATIVE 


na 





Took (he 1) -X(2, 1) *XTOOSIN (TH) OX (3, 1) LTPDCOS (7H) = (4, 1) 02.08 ITOD SIE 4s 


112 OTK) OX (Se 1) #2-0°XT#DCOS (2. 08TH) =H (6, 1) 3. 06LTODSIN (3. COTA AAU? aS 


1 ip ed -dexTODCOS (3.0°TK) -K(G, 1) *U.eRTODSIN (4. 08TH) oX (951) OH -OPETSD ¥S 


1COS (8.00TK) | 
1® (@D.GE.0.CD0) GO TO 3 


cose COMPUTE FITTED WEIGHT 


ICOS (4. 0°TK) #069, 1) *DSTN (4. OPTR) 
eu (J) =UX+F (1) 

2 CCWTEWUE 
Go Ta 7 

3 RITE (J0R1TE, 4} 


ceee REDUCE POLYNOSIAL TC FIRST ORDER If WEIGHT DERIVATIVE Is FouwD us 
cees POSITIVE rar “S 
po S J=1, Ws 
TESP=F (J) -F (1) ws 
urt=1,0D0 ws 
IP (3.BQ.1.08. 3.50. N) MI=NORON WS 
CJ, 1) =8TeTA (J) wS 
C(J,2)=et us 

5S 043, 1)p =eTeTERe _'s- 
CaLe LLSQAK (Co XK, 2-17 450,4509 15, WK LER e JURETE) us 
po & J=3,8 ps Ong hay em eStats Sine eeean & ws 
6 ww (SP =K (4, 1) OTH (3) OX (2,1) OP OY) us 
7 RETURR us 

EWD us. 
SUBROUTINE ADIUST (C, CC, CR, X, DSCALE,LLOC, ALOC, EP, REQ) aT 
Cc an a sé oh at 
Csee SUBROUTINE ADJUST ADJUSTS SATRICES DUE TO SUBROUTINE HRATH®S at 
Ceee COEFFICIENT FREEZING . . $ at 
at 
IMPLICIT 2EAL*8 (A-H,O-2) at 
| DIAEMSTON C {195 13) 9 CCL ABs 1) oCH (UM) -X (13) pLLOC (13) o MLOC E43) LOC (13) at 
4, (43,13) , DSCKLE (13) at 
Gino Sx aT 
ceee MODIFY CC-MaTRIK AND DETERSIWZ LOCATIONS OF FROZES COEFFICIENTS at 
-  A=0 at 
DO. 2 JXP=1,NEQ at 
iP (CX (JP) .BQ.0. 000.08. LLOC (JLP) - NE 0} GO TO 2 at 
A=Aed aT 
LOC (8)=0 AT 

IF (MLOC({JXKP).£Q.0) GO TO 2 at 
at 


LOC (4) =1 


ei vgec acetate? phg’et dd kg de WFR TRENT 7p BQ RP TS ten erttems ome Sihnda cea) veghete 


4 PORBAT (1E,//, OK, WEIGHT DERIVATIVE FouND TO BE > OR = ZEHO.*.//) WS 


Gren (1,4) TOK (2, 1) ©DCOS (TK) +X (3, 1) DSLN (TH) #X (4, 1) CDCOS (2. DOK) Ve | us 
Von 1) #DSLN(2.08TK) OX (6, 1) #DCOS (3. 08TE) #4 (7, 1) ODSTM (I, O*TEH O4 (8, DOD us 


oe | 


aa eae 





ee aE Peet ART RE RE a dae Te 





satiate sae Ns cap oe net ee 


A Sl I ama aR AE 9 C os) 
Ng RE 


ie mete nN. mw a we 


cries tg te indy GM 
9, a ee 


| en Pe arena iote Po ve 





94 


cess 


Cees 





ceee 


 cees 


Csese. 


: 
i 
be 


cose 





ee a ee 





“SUBROUTINE PCEF 


ceee 


We ¥2,¥3,¥8, 15,16 


(Cees 


$tst (01) 


CC ({L, 1) =CC {L, 1) -C (8h) XK (8) ©DSCALB (8) 
CONTINUE 

GPDATE HATRICES 

Lz=0 

DO & I=1,I1P 

AP (LOC(I).2Q.1) GO TO & 
LE=LXe1 

La=0 

00 3 J#1,1P 

IP (LOC (J}.2Q.1}) GO TO 3 
ca=Lae? 

D«LK, LS) =C (1,3) 

COUTLAUE 

ce (Li, 1) 2=cc I, 


. CONTINUE 


DEFINE WEY UPDATED SATEIZ 


. EP#kr 


DO S I[«1,IP 
D0 5 J=1,1P 
C40,1) 20 (5,5) 


BBrORs = 
a RSD. BEN pa BS RTE 


‘SUBROUTINE PCRF CALCULATES. mur CORFFICIENTS: re THE. STIFE- 
RQUATION® CORRECTOR 


_ XSPLICIT REAL*6 (A-2) 
REAL®G TOL/1.0D-2/ 
- CONHOM /PCR/DYO, DT 1, D¥2, D1 3,D044,D¥5,D¥6, 10, %1, 02, 13,54,35,%6, 10,11 


-COBSONM /CRCORP/P, AO, 41,82, 03,84, 85,8 


OBFINE DIFYERERCES 

“2 (5p =i-10 

# (0) 3-10 

¥ (DY) =DE-DIO 

CALCULATE X~DIFFZRENCES 
' £O0=T (0) 


£2-T (£2) 
T3=T (x3) 
T4=T (K4) 
T5=2 (15) 
T6=T (16) 
CALCULATE ¥-DIFPEREUCES RELATIVE TO 40 
#0= (10) 
wt=8 (11) 
2-8 (12) 
03>4 (13) 
we=0 (TS) 
#528 (15) 
¥6=8 (76) 
CALCULATE DI-OLFPERENCES RELATIVE TO YO 
tO=8 (Bx0) 
¥ts¥ (DY) 





sacle cane ulaeeiamanandidl ; 


Ma GRRE 


Ww WW WN NR RRR DD cata etme 7 
FOO OC RAR SUN MOC STAVEWN SOU DNAUEUA 


cece 


cess 


cose 


¥2=¥ (DI2) 
¥3=9 (073) 
Ban" (DTS) 
05<8 (D415) 
¥6=¥ (DY6) 
Equation 1 
ao=-=v1/T1 
B2=-Tt 
83=82°T1 
Ba=p3zett 
s5=seerT 
B6é-ulystt 
rquatios 2 
CO= (0 2-T2¢80} /Cc 


. C3a= (E26 (B3¢T2°T2)} /C 


Cha (T2¢ (BUCT2°T29T2) } /C 
Cxt2¢ (B2¢T2) | 

C5a~ (F2¢ (BS eT 26T2¢T2°T2)) /C 
C6= (W2-72986) /C 

GPDATE Eguatrou 2 


 :pO=s2eC0+B0 
-03=820C30B3 


DA2B7*CUe BY 


 pS=B2*cS5¢Bs 


. Cees 


. Cees 


cess 


cose 


cees 


cess 


D6=B2°C6+B6 


SQUATIOR 3 


ReT3¢ (D3eTIe (CITI) } 


“20> (¥3- (734 (POeTI*CO) )) /E 
— BR=~ (136 (DECK Ee (CUeTIETI) N/E 
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PITCH-ANGLE Bras = *, PDI. 11,8 Ge 


WeaDIau Leeseeee be Oke" i867, 424,50 (8-8) , 7) GP 

Ce#e PzaroRn CORRECTIONS To PITCH ANGLE VALUES Ge 
DO 6 I=1,K GP 

r F2 (1) =X (2, 1) #P2 (0p ex (1, 1) GP 
RETURY Ge 

c GP 
ENTgaY MPETCH (K) , Ge 

c oY ce 
Ceee ENTRY MPITCH SOLVES FOR PITcH ANGLE py NUUTOS-saeKson GP 
c 7 a Ghee GP 
Ceee MITUALIZE PARAMETERS : ah GP 
CALL CHNGE (SGR) Ge 

Cees BEGIN SOLUTICE Loop GP 
DO 9 I=1,k GP 

IT=0 _ Ge 

TS=P2 (I) ee , GP 

T=Ts GP 
AMN=DA8S(F6 (T)) GP 

IF (P6(I).LT.C.0D0) cate SEGUS (SGM, TRX1, 1242, 1243, 1214) GP 

Ces COMPUTE POWER aun DRAG COEFFICIENT 6e 


PES) sFa (ty su tng) Ft (ED OP EKVOCER (3) ¢P4 (1) sonrzeCzH (4p #744) eoprioc GP 
TPR (5) *P4 (1) eogry GP 
(9) eames ker secan (ayn ey MaeeEELT¢SGU (2) #cFR (0) eanserer 2escu (op ec GP 


* (9) CANCCIEX3¢SGN (4) ©CPH (10) oAneorery GP 
ir (F6(T).LT.0.0n0) CALL CHNGE (SGH) GP 
C#se- FORK MEWTOW-RAPHUSOW EQUATIONS GP 
7 SPRUE) Se2sCb La. Doses EAI FES CED) (DSEM (E-P6 (2) } P01) /o0ES (ty Ge 
TSOP 4 (1) 692 0CD/ (2.0009P1 (1) )) GP 
FTE=-DCOS (T-P6 {1)) : GP 
Ig (DABS (FTP) .LT. 1..05- 10) GO TO 8 GP 
IT=IT¢} 7 0 gp 
TT=T-FT/PTe 33 GP 
IF {0485 (TE-T) LT. 1. 0D- 16.08.17. GE. 40) GO To 8 GP 
t=TT ibaa iim 
- GOTO 7 GP 
Cees ADJOST PITCH ANGLE GP 
8 F2 (1) =TS¢0.333333D00(rs-r) Gp 
9 COMTI wue te a GP . 
RETURN SN 5 GP 
EMD “ ces GP 
SUBROUTINE LSD (Kes, AL), RNS, LAET, TERR, Ju aITE, AEH) LD 
c ; athena es Lo 
Cee SUBROUTINE Lsy rs a MODIFICATION OF THE GENERAL Least~souaae- LD 
C#e® DISTANCE CURVE FITTING PROGRAM GIVEN IW THE POLLOWLNG BEFEREWCR: = tp. 
Ceee a LEAST -SQUARE-DISTaNCE CURVE~PITTIuG TECHNIQUE Lo 
Ctse JOHM Q. HOWELL, MAS~ TH D-6374, JULY 197} Lv 
Cc LD 


ot ee Le er a ee re. ore Sr 
paid et SSeS PE tae Lae rae » . 
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50 
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net 


NEES RS Ra nes te dy OK Sap See 


PRONG cee Rs a Mar no 


Segre a ee ee ee 
clases gigs se RE] 


aaa 


Ser ey 


PORTE ey ges eat 


CS. aad 


See 


Fete Sa et 


tren 


wen can” Gt By ade geese Sgr Shen cei es #aeees owe WEA YT ea ERR: 


cones ek case oe mae 


ni 
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| 
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rf 
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wee eer yer 


ppl ita i en gee vaste 3. the! er mae 
wee stant ae oe a Sas Sh ohaas A OY 





Ree a 


haters 


tees we erreere cee is =) 
fy Fiera ete sehen: Pe eR MAE PAS 2 


LOR 
fo Bree ths 





zlb 


ISPLICIT BEALSO(A~-8,0-2) 


LD 
DIARESION B (6,8), AL (4) -B(4, 1) DIS (450) .DEDAL (4, 450) , 4450) ,X(m).. XX. LD. 


1 (950) ,¥ (8). EY (450) ,SAL (4) , BZA (32) , LPT (450) 
c 
cees Set FMITIAL PARAARTERS 

RABGE=0.01D0 

AX+100 

288=0.05D0 

RASOLD=0.0D0 

STUPI=Araet 
Cees START ITERATION 

DO 30 ITER=1, 81% 
ceee PIND CLOSEST POINTS OF CURVE 

IPAIL=0 

DO 12 121,58: | 

@ (1) =1.0D0 : . 
Ceoee OBTAIN INITIAL GUBSS AT X-COORDIMATE OF CLOSEST POLUT 


Ceee (KX{Ip,TY(1)) OM CORTE TO DATA POINT (E(L),¥(I)) PROM THE: 

(Cees TUTZASECTION OF A ERAPRSDICULAR PROM THE DATA POINT WITH 
COS THR TAUGRNT TO THE (CURVE AT THE POINT (K(Z),P(L(I))) @HERE 
°. Ceo TEE CURVE RQUATION IS F = P(X) ; all ea ee a 


CALL PECTMA (AL, K (1) ,#,DFDX,ATHP1) 
UX (C) =K (1) - (P- 1 (I) ) SUPDI, (1.0D0*+DPDE*DFDX) 


 @@** SEAMCH ABOUT TAIS POINT IX{I) FOR A SIGH CHANGE Im THE 
Cees PORCTION (P42) - U(I))*DRDE + (xX - (Tj) 


. XP (X (1) .88.0.000) Go to 1 
TY (1) =F 
EX(Ip=K (2) 
$0 To 11 
- UP (1.9B.1) GO To 2 
—, DRUPR=RANGRO (XK (Le1p-2(I)p 
- ONLSR=RANGESX (1) 


_. GO 70.3 
2 DELTA=RANGE* (0. (1) -X (X-1)) 
 *DEOPR=DiLuB . 

. . EF (1. 0EB.N) OXOPR= RANGES (K (I ¢1) -x (1p) 

3 KLMB=ER (I) 

. KUPB=ILUe8 
DO 5 J=1,100 i. « 
CALL PUCTNA(AL, ILUR, FL¥R, DFLUR BATHE 1). 
CALL PECTRA (AL, XUPR, FURR, OPUPR,ATHPI). 
POMLUR= (PLUR-T (I) } ©OPLURe (XLER-X (Tp) 
FOMUPR= (POPR-T (£5 *OFOPRe (XO2R-x (I)) 
IP (PUBLWaeF¥UNUeR} 6 66,4,8 
‘® XLWS<KLUR-DILeR 
20Pa~xUPR¢DxXOPR 
EP (4108. LT. 0.000) rLuR=0.0D0 
5 courrsue 
DIX 3k) 7.900 
“APSEL=IEPAILL¢1 
‘XPT (LPAIL) =1 
w@ (1) =0.0D0 
GO TO 12 


_ Cese SIGH CHAUGE HAS BEEM FOUND. PIUD aouT BY RETHOD OP FALSE 


ceee POSITION. 
6 ICLD=0.0D0 
00 9 J=1,100 
EROOT= (KLUB OFOSUPR-LUPROFURLYR) / (FURUPR-PUNLWR) 
IPF (DABS (1,0D0-XGOLD/ER00T) .LE.1.00-03} GO TO 10 
KOLD=ZR00T 


: hb 
: ED 
' Lb 


“LD 
| LD 


Lo 
Lb 
Lb 
Lo 
LD 
tp 
Lo 
LoD 
LD 
LD 
LD 


iD 


Lo 
Lp 


“Lb 


Lo 


LoD 


“LO 


LD 
Lo 


Lb 


LD 


' -b 
Lo 
1D 

oS BD 
bb. 
bb 
to 
Lo 
- oD 


Lp 


Eb 
Lo 


LD 


Lob 


ED 


LD 
Lo 
Lo 


LD 


LO 
£o 
Lo 
Lo 
LD 
Lo 
LD 
LD 
Lb 
Lp 
LD 


eae Dison SA 


10 
11 
12 
13 
4 
Le) 
16 


ceee 
6G 


19 


LPs 


13 


4a 
cese 
Cees 


Ceee 
Ccees¢ 


15 
cose 


16 
Cee 
17 


18 
cose 


CALL FECTHA(AL, ROOT, PROOT.DFROOT, BTHP 1) 
PUMRT= (FROOT-¥ (Lr) ) SDFROOTS (xROOT-2(I)) 
EP (PUGLUR*PUNRT) 7,10,8 

PORUPE=PUBET 

2OPR=1R00r 

GO T0 9 

PUBLUa=FUERT 

KLWR=ERO0OT 

CCMTLUOR 

DIS (1) =0.0D0 

IFAIL=IPAIL¢1 

IPt (PAIL) =1 

WI) #0.000 

GO TO 12 | 

CLOSESP POINT FOUND, HOM FIND DISTANCE 
KX (I) =XROOT | 

ry (I) =<Paoor 

DA*KE (I) -X ETS 

DY=FY¥ (1) ~¥ {T) 

DIS (I) =DSQRT (DX*DxXeDYeDY) 

CONTI BUE 

IF (IFAIL.8£.0) WRITE (JURITE,13) ITER 


FORMAT (1X,//, 28%, 79HTHE SHORTEST DISTANCE COULD BOT BE FOUND FoR 
THE FOLLOWING POINTS OM LTSRATION®,I3,1N:,/) Baht 
Ip (LPAIL.BE.0) WRITE (IVRITE, 14) (LPT(I), Tet, IFATL) 


POBMAT (242,21 (13, 1H,)) 
COMPL&8TE SET OF CLOSEST POINTS AND DISTA¥CES FOUND 


M08 FIND HEP SET OF PABRABETERS 


PC=0.05D0 
IPCF=PCceu 

EXIT FROA ROUTINE IF S PERCENT OR SORE OF CLOSEST DOISTaucses — 
CaSHOT BE FOUND 

TP (LPAIL.GE. EPC) LAET=1 

IP (UPaIL.Gt. PCr. ASD. ITER.EQ.1) GO TO 34 
I” (7PAIL.GE.IPCP) GO TQ 32 

SUBDi5=0.0D0 

pO 15 IT=1,8 

SUADIS*SOMDIS*DIS (1) *DIS (I) 

FIND ROOT-REAB-SQUARE DEVIATION 

RAS=DSQORT (SUMDIS/ (U-IFAIL) } 

IP ({ITER.GT.1) GO TO 17 

RASS=aRS 

DO 16 I=1,4 

SAL(3I} #21 (1) 

CHECK FOR CONVERGSUECE 

IF (DABS (BAS~RASOLD) LS. ERReRES) GO TC 32 
IF (ITER.GT. 1.400. 825S.GT.RASS) GO TO 32 
RSSS=R4S 

DO 18 I=1,4 

SAL(I)=AL(I) 

GENERATE MATRIX CORPEICIENTS OF LINEAR SIMULTANEOUS gQUaTIONS 
CALL PUCTMB(AL,U,XX,YYDIDAL, MTUP 1) : oie 
BO 21 K=1,8 

B(K, 1) =0.000 

DO 21 I=1,8 

B(K, 1p =B (KR, 1) + (4 (XT) -EY (1) ) SD EDAL (KE) @W (1) 
IP. (W (1). 20.0.0D0) GO To 20 

IP (01S (I) .2Q9.0.000) Go to 19 

OFDAL (G,E) = (¥ (1) -Y¥ (1) ) (DYDAL(K,1) /DIS (1) 
GO TO. 21 


SESESEEES 


sbSES 


LD 


SSSEESESEE 
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woe ot ¢ 
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ie ks bby: 
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Ly 


19 


20 


21 


22 
23 
24 


Coes 


CALL , PUCTMAML, KKK). #, OF ATU 1) 

IF. (DF.£Q.0.0b0) Go TO 20 

DIDAL (K, 1) =DSQRT(1.0D0/(1. 000¢1.0D0/0F /DF) )*DYDAL(K,T) 
GO TO 21 

DIDAL(K, 1} =0.0D0 

COMTIMUE 

DO 24 #=1,4 

pO 23 J=K,4 

A(K,3)=0.600 

DO 22 I=1,8 

A(R. Ce a aa 

A (0,%)=4 (K,3) 

CONTIBUE 

TUCRBASE STABILITY #ITH DAMPING TECHNIQUE 
T=0.0D0 | 

po 25 I=1,48 

T=T¢2 (1,1) *8 (1,1) 

ww=0.500¢SUNDIS/T 


' DO 26 1+1,f 


26 


cose. 
Abe 


28. 


29 
30. 


(1.0) =a 1, 1) +0.500/4u 
SOLVE THE LIMESR SIMNOLTABEOUS EQUATION Fou corgections To 


TUR AL{I) AND GENERATE SEU ALI) 
CALL LUSQAR (A,B, 8,8, 3, 4,4, 16, oRKAR, IER, JURITE) 
Ir (TER, £Q. 129) Lean=1 


“TP (2RRR.8E.0} GO TO 32 


- ALU =BL(t) eB (4,1) 


GO T0 (27,27,28, 28, 29,29) ,5THet 


RL (2p =AL (2) 0B (2, ¥} 
0 


Go To 3 
OL (2) =40¢2) +8 (2,0 
BL (3) 2A (3) +8 (3,1) 


BL (4) 7AL (4) eB a, t) 


66 TO 30 


32 


34 


ceee 
cose 


c 


cess 


] 


if: 


AL (3) =AL (3) ¢3(2, 1%) 
AL (4) =aL (4) ¢B(3, 0 
CONTINUE 


 @RETE (JURITE, 31) AX, ERR j re 

30 POANAT (1K,9(°¢*), *APTER®, 14, * IrewaTioNs 11.0. - aus /tasoLpi. THE 
WMELATIVE BQROR BETWREN'/ IK, V1X,°THO SUCCESSIVE VALUES OF RNS, STIL 
YL EXCERDS THE SPECIFIED ERROR PARABETER =*,D10.3) 


RETURN 
@AS=R8ESS 


pO 33 1=1,4 
BL (I) =SAL (1) 


RETURG 


SUBROUTINE PUCTWA{A,%,¥,DUDK,ATHPI) 


SUBROUTIBE PMCTNA COZPUTES TRE VALUE OF THE PITTED FUNCTION AWD 


ITS X~DERIVATITVE 


IMPLICIT :Bh.* *(A-8, 02) 
DIMENSE% 8 412 


GO to (Xe cords y, 3) -QTHPT : 
CALCULATE FUBCTION VALUE AMD ITS DERIVATIVE VALUE 
Y=AQUp eA (2) Od 


ca 


“128 


129 
130 
431 
132 
133 
134 
135 
136 
137 
138 
439 
#40 
141 


142. 
143: 
mit} 


145 


146 


147 
140 
149 
150 


. 154 
$52 
7453 
“154 
155. 
156 | 
157 
158 
159 


166 


16% 


162 


163 . 


1648 


- 165 


166 
167 
168 
169 
170 
171 
172 
173 


wh wt 


mOO SW AU EC wh ow 


Coss 


ceee 


cess 


cees 


Cees: 


Cees 


c 


2 


4 





DIDE=A (2) 

eeTuas 

CHECK ABGUANZBT TUR ZeROR - 
IPF {X.LE.0.0D0) Go To 3 


CALCULATE PUBCTION VALUE ABD tts DERIVATIVE ALOE 


Y=2 (1) CA (2) KOR (3) #KSOA (8) oe 
DEOK=B (2) +4(3) OA (4) OXES (a (4) - 1.000) 

RETURE 

SET PUSCTIOW VALUE AND ITS DERIVATIVE VALUE 

¥=A(1) 

DYDX=0.0D0 

RETORM 

CRZCK ARGUMERT FOR RBROR 

IF (%.LE.0.0006) GO 70 5 

CALCULATE FUNCTION VALUE AWD ITS DERIVATIVE VALUE 


1 PEA (hp en (3) OLeoa (4) 


. Cooe 


cose. 


OYOL=A (3) A (8) OX (A (4) -1.0D0) 
RETURN. 


‘SET FOSCTION VALUE AMD ITS DERIVATIVE VALUE 


T=A(1} 
DYD£=0.000 
aeToRs 
Bap 


‘SUBROUTINE FUCTNB(A,H,%, 1, DYDA,aTHPT) 


SUBROUTINE FNCTUB COMPUTES THE VALOE OF THE prrten ruuctrow 


AND ITS PARTIAL DERLVATIVES WITH RESPECT TO THE COBPPICI ENTS , 


IMPLICIT REAL*@(A-H,O-Z) 


 DIBEMSION ACS), DYDA (4, BW), X(N). ¥ (i) 


Cees: 


cese 


ceese 


ceee 


Ccese 


ceee 


GO TO (1,1,3¢3,6,6) -BTHP? 
ror ATH=6,1 


‘pO 2 I=1,% 


CALCULATE PARTIAL DEGIVATIVES 


 prDagt, 1) =1.0D0 


DrDa (2,1) =X (1) 


¥ CLP 2A CU) @& (2) 42 (TL) 


RETURN 

POR ATH=2,3 

DO 5 1=3,8 

CALCOLATE PARTIAL DESIVATIVES 
DYDA (1,1) =1.000 


- pyca(2,1p=1 (1) 
cease: 


TEST ARGUAERT 


XP (£(7)-LB.0.000) GO TO & 


DYDA(3,%) =X (1) OFA (4) 

DEDA (4, I) =2 (3) OX (Lp OA (4) DLOG (KX {I}) 

CALCULATE PURCTION VALUE 

UIP =A Cty +A (2) ON (I) +8 (3) OX CT) OR (4) 

GO TO 5 

SBT PARTIAL DERIVATIVES AWD FUNCTION TO SPECIFIED VARIABLES 


“DYDA (3,1) =0.0D0 


DYDA (%,1} =0.000 
¥ (1) =A (1) 

COMTI MUR 

aETURM 
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7 
> 
{ 
fi 
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GT REA 


icant taste eae 
RA i eS 


mem 


EMT 


ee etgemrnntent 


Teo. CS bee 


cece ante ore oe 


SR oi he RY eh ae 


scene 


° 
‘ 
eo 
ce 
bee 





4 Fi 

so 
aon oe 
gia, ee 
ae 
ge 

‘ 

i 


ye ane ee, et Bee wk RON ey maui ar headed ae 


emabet Foca scat 


fie kd 


6 Sim Ana rd 








per 


bed 


ai ee 


Cees. 


fOR BTH=4,5- 


6 DO 8 I=t,u. 


(Ceee 


ceee 


‘pyva.¢t,1)=1.000 

TEST ARGUMENT 

LF (X(Tp.LB.0.000) Go to 7 
DYDA(2,1)=KQ1p**h (a) 0 

DYDA (3, X) =A F3) Od (Lh SOA (4) SDLOG (X(1)) 
CALCULATE FUBCSION VALUE 

Y(I)=Aa (4) Oa (3) 8X (L) @8A (4) 

GO TO 8 


7 prpa (2,1) =0.000 


ceee 
Cees 
cee 


Cees 


Cees 


DyDa (3,1) =0.0D0 
' ¥CUpP=AC1) 
8 CONTEMUE 

aevoRs 

Bitte: 


_ SUBROUTINE GOEQK (K, 488, ICK) 


SUBSCUTIWE GDEQH SOLVES POR EQUER AND LIET COEFFICIENTS BY USING ~ 


EQUATION OF MOTION HORKHAL TO FLIGHT PATH AMD MODIFIES THE A PRIORI 
_ WALUES AND THEIR WEIGHTS, IF NEEDED 


ISPLICIT REAL®8(A-H,0-Z) 

DIAEWSIOL TS5(8), LOC (8, 18) -COF (8) ,APMP (13,5) 

COMROW TINE (450), F2 (950), F2 (450) ,P3 (450), F4 (450), F5(450) , 6 (450), F 
17 (450) , F8 (450) , P9 (450) , FVO (450) ,F19(450) , P12 (450) , P13 (450) , P14 (450 
1) oC (450,19), K(450, 1) WKAR (250) ,CPA(14) ,SGM (4), SCD (4), PTI (450) ,PT2 ( 
1450) ¢PURA (450) , XX (450) ,CO (450) 44 (450) ,X2 (450), EX1, £42, EX%3,8K4,6,5 
4,8HO, TIA, EXPX, PLOW, CHIGH, CDLOW,CDHIGH, JREAD, JURITE ,JPUNCH, LEL1,IEBX 
12,1223, TEX%, METRIC, LY, L2,LBQUA (19) , TERS 

COANOM /LABU/AP (13) .#GT (13) -CRMIM (13) ,CANAX (13) 


EMTEGER LEQM (18) 9,555 9555555 5564665656, 6 bg 55596 56/ 

DATA LOC/1 6,78 404050 5051526659 4850 5050, 14256, 7,8,0,0,0,1,2,6,7,8 
1.0,0,0, 1,3,6,7,8,9,0,0,1,3,6,7,8,0,0,0, 1,3 ¢657,6,0,0,0,1,2,3,6,7,8 
1,0,0, Ve ded eG e Fp Bg Dy Dy Vg Zed obo FB sO Da Ve Soe Ge Fg GeO oO 5 04354 ,6,7 78,0 
WoO Vy Be Bg Pe ee V6 oF Bo 50 ob 0,152,657 8,9,0,0,1,3,6,7,8,0,0,0 
100, 1.0D0,7.0D0,t.000,1.000,3.0D0,1.000,1.0D0,1.000,2.0D-2,1.0D0,2 


1.0D-1, 2.204, 1,0D00, 1.0090,1.0D00, 1.00+0,1.05¢0,1.0D¢0,1.0D+0,1.0D 
190, %.0De3,2.00-3,1.0D+0,2.0D-2,2.0D¢ 3, 1.0060, 1.0040, 1.0040, 1.0000, 
99.0000, 1.0000, 1.0040,1.0D000,1.0D¢3,2.0D0-4, 1.0D¢0,2.00-5,2.0002,1.0 
Ded, 1.0D¢0, 1.060, 1.0D¢6, 1.600, 1.0D¢0, 4.0De0, 1.0D¢0,3.CDeu e2e0D-5 
1, 1.0000, 2.00-3,2.0061, 1.0000, 1.0D¢0, 1.0500, 1.0000, 1.0000, 1.0000, 1. 
10D4¢0,1.0D0¢0,1.0004/7 


Ie ¢ICk.GT.1}) GO T0 17 
WRITE (3¥RITE, 1) 

V PORMAT (1% ,///,5 1%, 30HNORMAL~TO-PLIGHT-PaTH SOLUTION, /) 
WRITE (JWRITE, 2) 

2 POBMAT (284, 76 (°°) ,/, 25K, °%*, 74X,°**) 
DETERAINE NUSBER OF UNKNOWNS 
wOm=LEQN (488) 
po. S I=1,Kk . . 
DETZRMINE GEWEBAL TERMS FOR MATRIX FORAULATION 
TS {1p=DSEm (P6 Ip eT A} 
2S (2p =TS (1) ORM (1) eFEXt 
“TS (3) =TS (1) ORY (Ip oP EL2 


FB 
a) 
PB 


PB 
FB 


rs 
| é 
re 
Fé 
PB 
Pb 
FB 


co 
GD 


GD- 


GD 
GD 
GD 
Go 
GD 
GD 


GD 


GD - 
SD - 


GB 
GD 
GD 
GD 
GD 
6D 
GD 
GD 
GB 
6D 
GD 
Go 
Gb 
GD 


GD 
GD 
GD 
GD 


GO. 


cD 


Gb anaes 
GD | 


God 


GD 


GD 
Gb 


35 


“36 


37 
3a 


39 
“40 


a1 
a2 
43 
ua 
4&5 
a6 
“7 
88 
49 
50 


Wow AUS ble WS ot 


GO 

TS (5S) =TS (1) OPS (1) PO ELe -, GD 

TS (6) =F5S (KE) OSPF 4 (1) 9%372.000 6D 

TS C7) =TS(6) SRG CL) GD 

TS (8). =TS (6) *P6 (Ip SoLZRePxX GD. 

Cese PORS CORFFICIENTS P28 LEAST SQUARES : 6b 
90 & J=1,8UN cD 

4 C (1,3) *TS (LOC (J, 86 B)) Gb 

S UCL, 1) =84(1} 89 ZOF t (1) /G* (FT2 (1) ¢GeDCOS (FT 1 (I) ) /F4(T)) 6d 
ceoee £MACT LEAST SQUARES Gb 
CALL LUSQAR(C, 1,8, LEQK (ANB), 1,450,950, 16, WKAR, TES, JURETE) 6D 

ceee CHECK FOR ERROR GD 
TP (TER, £Q.129) GO TO fi ‘GD 

GO TO 8 GD 

@ WRITE (JURITE, 7} GD 

7 FORMAT (1X,//.U0L,°ZERO MATRIX ENCOUNTERED Iu GDEQH. TO BERT DATA GD 

1 SET, IF BHT. SS) 6D 

rg 4 t Ea) GD 
RETURN GD 
Cees DEFINE COEFFICIENTS IN CORRECT ORDER GD 
8 DO 9 J#1,8 GD 

9 COF (J}=0.0D0 GD 

bo 10 J=1, aUA GD 

10 COF {LOC (5, ANB} )=E (J, 1) Gp 
C#¢e DETERAINE FIT ERROR Go 
$S%20.0D0 6D 

DO 11 J=1,K 6d 

P=COF (1) OCOF (2) OF 4 (2) © * EX 3 COP (3) FS (J) PPR AZECOP (4) OFS (J) OO RXIUCOP GD 

145) FY (J) SOEXS GD 
CL=COP (6) ¢COF (7) *F6 (J) tCOF (8) *F6 (J) OF EIPX Bee 4) ere GD. 
SS=DSIM (FS (3) CTIA) SP EPS (J) CSP8 (J) %3/2.0D00CL~ (Fa (J) OO2 SFI (3) /G*( GD 
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12 FORAAT (29K,%*°, 9X,°SOVEL *,12,3%,°PO = *, 1PD23.16,3X,°CLAO= *, 18D GD 
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t% WRITE (JWRITE, 15) font flee ‘< 6D 
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= IP (WGT(1).GT.0.0D0) GO TO 16 Gp 
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§ 1% eztoan GD 111 . 4 CouTIMOE ee. 2 
he (C8@®. AONIFY A PSLORI WEIGHTS DUE TO TRAJECTORY PREDICTION GOUTINE’S | Gb 192. CALL ¥XPSTO (SUR oe en 4g 
vg Cees ITERATION NUMBER 6D 493 WKAREA (3) =SUS ys . 7 . Lo 
“3 97° DO %8 r=1,13 GD 114 2 CCURKBUE aa — i Lo 
4 - Te (@GT (I). 5Q.0.000} GO fo 18 . GD 115 Cees MOVE THE RESULTS [¥TO MATBIK @ - x * £9 
i USEC) PHP SAE CEP ARMRIE ICR) a GD 416 . BO 3 J=1,ma 419 
: 18 CCUTIBUE GD 117 _ B(J, 1) =8KAREA (J) si-ae of LQ 
_ percen oh GE ae Re wea GD 196 3 CONTIRUE A . £@ 
EMD . aA Y ee m9 “GD. 419 © COouTrzreoe % LQ 
sf a GO 70 6 we ut . Sts LQ 
: 5 IEa2129 . ie ——  £Q 
ts ob ee Mag . ft, «CALL. UBATST (IER, SHLLSQAG, JURITE) - bods LO 
esa ns Hy ae _ % SUBROUTINE SIGHS (1, 11,42, 43, x4) e su | 6 RETORN: a) “4 . Lo 
Pe OY, aa! * te Ve . su 2 ERD . LQ 
ea (eee SUBROUTINE SIGNS DETERMINES THE CORM@ECT SIGH OM TERES Lu Su 3 ; : i . 
a ae Css COMPUTING THE DRAG COEFFICIENT. EXPRESSION OR ITS DEREVATLVES Im SH 4 
ree 4 Ceee RELATION TO ARGUBENT AND EXPOMENTS Su 5 . ~~ fed . 
eee ee Coe ; su & SUBROUTINE LPSDOR(A,A, UN, TA ,AIEV,TOGT,WKAQZA, LER, JURITED) 8 8=6= st es 
ee IMELICIT REAL*S {A-H,O-2}3. Su 7 c eI 
ae IRTEGERS4 EV, 42,103,246 sw 8 Cese SUBROUTINE LPSDOR FIND THE. PSRUDO-INVERSE OF A RATALX wi 
Cb fae 2 - .  PEMEMSION ¥(4) ,L (4) sé 9 c _ 5 tee 
a ¢ a su 10 DIMENSION A(IA, 1), A188 (IA, V) oUKAREA (M, 1) PI 
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) ae V £2) =1,0B0 ie it ie su 12 RESL*®S SUR,DETA A eI 
; or LQ) =n . Se +3 Cc , PI 
ae  LQ2p=r2 su 84 ceee INITIALIZE IES Poon g | PES 
yO E (3) =23 ci ae an spe 15 1ER=0 3 a / et 
oe Lap ene wer | su 16 MP Ise) ao or 
Ve OO 2 I=1,4 Sul 1? HP 2=he2 —r - i ee aa eI 
hee YP (4 (4 (5) 72) 2) met (a) ad ==, ono | Sm 18 we2=Be} «pr 
3 . 2 COMTIMUE Ss 619 Ceee PIND THE LASGEST ELEMENT OF A eI 
peTuaw ee #2 su 20 BIGA=0.0D0 — . eI 
RUTRY CHEGE(Y) . ee su 21 DO 3 Ir=1,8 gE) et 
- po 3 f=1,4 je? * a se 22 - 90 1 IL=1,8 aa eI 
2 TCL) =1.0D0 ae se 23 IP (BiGA.GE.DABS(A(Z,11)}) GO TO 1 tes, er 
. SETURS ue _ “5 coh Gs Su 28 BIGA=DABS (A(I,II)) . a -_ 4 er 
. ED ee op > Mh, ee. 7 <= 98. bday out se 625 1 CCUTINUE wash A #1 
a a aes 6 ha , wa . ASt=ney fs oe PI 
Pac co  ETA=DSQRT (AMM) /( 10. ©*LDGT) *BIGA a er 
- a My. Rice mins ee oa 8s a! § a : Ceee CALCULATE THE SINGULAR VALUE DRCORPOSITION OF & PEK 
— SUBROUTINE LLSQAR(A, 5, 8,WA, MB, TA. IB, IOGT WEARER, TER, JURITE) oo. ee ; - Cale SURE UA RaW e LR Mo teSEARER (NOMS S) (UEAEESULT SER IDSALEVSHEABEOS:, ex 
ct. ta 2 pO 2 r=1,5 er 
Cese SUBROUTIWE LLSQAB PERFORAS & LEAST Squasss SoLuTrow OF A OVEN- 40 3 2 WRAREA (I, MP2) =WEAREA(I,NP1) PI 
Cees PREeRGreee SYSTEM GF LINEAR EQUATIONS . LQ. & Ceee SORT THE SINGULAR VALUES ARAAY INTO ASCENDING SEQUENCE BX ABSOLUTE PI 
c . ta. % . a... cCese VALUE PI 
DIMENSION A(LA, 1), (IB, 1), WKAREA(1) LQ 6. CALL VSORTA (MKAREA(12, N22), M) PI 
REAL*8 SUA LQ 7 DETA=ETASC2 PI 
REACSS 4,5, UK ABER ye 7 £Q. 6 CALL ¥VXPZRO ez 
c:: LQ 9 ceee CORPARE SINGULAR VALUES AND ETA PI 
Ceee IWITIALIZE ITER oeece co a. £2. 10 pO 3 I=1,% Siento. Paint _ PI 
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cine poooemnmnmen ness GT ge I lea aay ae Sta eae ines alge tein oe AMESTEE, EL ame caper soem SI SANE ERT EI A 
re OV... z 
i 
. CALL VEPSUL(UKAREA(I,NP2) ,UKAREA(E,UP2)) a PI 35 ts L=1¢1 a ‘ae : ree: ie s¥ 23 a 
CALL VEPSTO (SUR) ee ee en a On a ree PE 2 |. 00 2J-i,m8 - oa . st 24 ae 
| IP. (SUR.GT.OBTA) GO-TO-q ee ee Dee 5, 8 er 37 2 CALL VEPAUL(U(J,1) ,0(3,1)) _ . % de sv 25 : 
3 COsTI NUE 7 Os - P© 38 _ CALL VEPSTO(S) ‘See ae we 5s : i st 26 ft 
. TER=129 | re ; = a rc) cae | ee ee : IP (S.GE.TOL) GOTO 3 °& #38 © 7 Sst 29 z 
foe se eh - | GO TO 15 mA ‘=. _€ fw A Pr 40 Ct G=0.DG ; . . St 26 i} 
Po - _< _& EP=Ep-1 . ae. Pr. 43 GO T0 7 : . : i _ S¥ 29 Fe 
t my nae EP (1P.NB.0) GO TO 5 bie, - Wes d teaeice ice Be Pr og 3 P=U(4,E) . _  - §¥ 3a $ 
pot he. oe  - &ERO=0.D0 © % Pear e.g sy S er 43 . G==-DSURT (S) a on se 34 f 
GO TO 6 ae Bere | ret Gr 20 PI 44 IP (f.LT.0.D0) G=-¢ ; ue <%e mS st 32 & 
5. ZERO=WKARBA (IP, uP2) . ie ee = . er 45 R=F*G-S . : . s¥ 33 4 
6 00 10 I=1,8 tet Os ee Ti a pa * no PI 46  «BR@T.0/H as st 38 H 
OAR (WKAREA(L,NP1).LE.ZERO) GO TO8 tas eI 4F U(I,f)=F-c . —— . sv 35 4 
pO 7 351,868 7 1s PE. 8a _ EF (LLGT.8) GO To 7 $v 36 \s 
FT WKAREA (3,1) =GKAREA (3,1) /WKAREA (1, BPI) s —_ eI 89 dO 6 J=L,m . * > —  - $¥ 37 a 
- . GO To 10 ae se PE $0 CALL ¥xeZ80 . . _"" $¥ 38 i 
Cee SET WKAREA (J,1)=6.0, FOR J=1,.05,0, LE WEAREACI, UPI) LE.ZER0. PIS? 90 4 K=J,a _ $Y 39 4 
-  @ DO 9 J=1,8 oo Pr 52 & CALL VEPROL(O(K,1),0(K,cp) . sv 40 " 
- (9 WKARBA(S,£)=0.0 oe . PI 53 CALL ¥XPSTO(S) on .*, & sv oat 
10 CONTINUE PI 58 FP=S*HR . 7 . st 82 , 
- PO 1% T=1,8 . . PI 55 DO 5 K=1,8 A sv 63 
DO 12 3=1,5 Pi Se S O(K,J) =U (K, 3) +PeU (KAT) 4 a a sv uh : 
CALL ¥XPZRO PI 657 6 cOuTIbue of s¥ 685 . 
pO 11 K<t,a ; ean ; er 658 7 O(1p*G 2S : sv 86 i 
VU CALL VAPAUL (UKAREA (I,K) AIMY (LS K)) PI S93 CALL VEPZEOG “ a st 87. 
CALE @XPSTO (SUA) PI 60 IF (L.GT.) GO TO 9 - st 646 
_ 12 WKAREA (J, BP3) =SUA Pr 61 DO 8 J=L,¥ St «9 
ceee SOVE THE RESULTS [NTO SATRIE AINY Pl. 62 8 CALL VAPAGL (U (1,2) ,U(I,J)) . s¥ 50 
. -- DO 13 J=1,¥ . PI 63 CALL ¥XPSTO{S) | sv 51 
13 ALNY (1,4) =WKABEA (J, MP) PI O64 9 IP (S.GE.TOL) GO TO 10 . : . SH 62 
ta couTrane PE 65 G=0.D0 : : yee S S¥: 53. 
- GO TO 16 PI 66 GO TO 16 a e. st Sa 
45 CALL UZATST (LER, GHLPSDOU, JMRITE) PI 67 ¥O IP (I.LT. 8) F=U (1,261) . : st $5) 
16 BETURE : . PI 68 G=-DSQORT (S) Ss 2 : . Sv S6 ite IAG 
. RwD ; U5 “a5 PI. 69 IF (?.LT.0.00) G=-G Pos ei aa . sv 57 3 
a8 oe H=F#G-S s sv 658 i 
HR=1.0/H . SY 59 | 
: 2 es pane te aes a IP (I. LT. mp u(t, 1¢1)=F-G = ne OF, S¥ 60 ‘“ 
SUBROUTINE ESVAL@ (A,4,N,TA,I3, ISM, UKAREA,Q,U,¥) * . . suo 4 AP (L.GT.8) GO TO 12 Hy = 7 sv 661 ae: 
ae a 7 Cc ot ne ty a a Sa Os  .§t 20 DO 19 J=L,u ry S¥ 62 ‘ re 
ae . J  €6@ SUBROUTINE LSUALR DETEBAINES THE SINGULAR VALUE DECOMPOSITION OF A S¥ 3 “NS WKAREA (3) =0 (1,3) tHe a oe a sv 63 if 
a: yee — .  Coee BaATRIX. 7 rere ee | ae, Va 12 IF (L.GT.81 GO TO 16 | . st 64 
oe: | | te. ear | 7 s¥ 5 nO 15 J=L,A =. | | st 65 igi 
; - .. DIAEBWSIOn A(TA, 1), 0(TA,1), F(I¥,1) .Q (1) sWKAREA (2) sv. 6 CALL ¥IPZRO . a Leelee SE 66 f 
‘BEAL©G2, OKAREALQ,U, 8, EPS, TOL . s¥ 7 If (L.GT.&) GO TO 15 . 2 sv 67 iz 
REALSO?P,G,H,%,1,2,C,5,88,GR,0PS, ONE, ZERO sv ) DO 13 K=1,8 . ee St 68 ix 
DATA FOL/20010000000000000/, nPS/234%10000000000000/ sv 9 V4 CALL VXPMOL(U (I,K) UI, K}) . st 69 a4 
. DATA ONE/1.0D0/,Z280/0.000/ - SF 90° CALL Y¥XPSTO{S) sv. 70 f 
re a | eb pO 14 K=L,u : an Bi SY 78 
_ EPS=DPS . =: .  S¥. $2: 14 U(d,K)=0 (0,K) ¢SOUKAREA (Ky . . sv 72 : 
DO 1. I=1,8 : eee te eae * PY SH 88 15 CCHTINUE . . | ae 5 “a 
DO 1 J=1,u a - sv ofa. 16: Y=DABS (Q (I) ) «DABS (UKAREA{I)) _ . Sst Be i} 
| BU, 5) sA (1,3) M8 ad + Regs GAede B.- cede a. | anced, .. > §¥ 15 EF (Y.GT.xp x=¥ . Sv 75 if 
: ¥Y CONTINUE ae a nde ha . te sv 16. 17 continue _ sv 676 i 
; C##* HOUSEHOLDER'S BEDUCTION TO. BIDIAGOMAL Fora + et, SY. 47: Cees ACCUMULATLON OF BIGHT HAND. TRAMSFORRATIONS = 8 =—C s¥ 677 ii 
aaa  ¥=0.D0- . a a ; i |: IF (ISW.EQ.0) GO TO 37 “3 se 78 t 
b. F c GO. D0 | > | sv 19 BO 25 I=3,5 8 ) ss 79 i 
ee “pO. 17 £=1,8 . _ s¥ 20 |: TI=U-fet. s¥ a0 ¥ 
. @KAREA (I) =G ae boo. 2 BR 8 IP (G.20.0.D0) GO to 22 Sv 81 
. CALL vxPzRO | | 4 a s¥ 22 IP (L.GT.4) GO To 26 | | - as st. a2 { 
ie i 
‘ 
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: Fang . PER2S2 eR uk 8613 6 L=J vs 
te | he URS Ag ee Uae AE URS. GESM RRR) GOES: : re ve 4 coee IF LAST ELEMEWT OF ARRAY IS LESS THAS T, LUTERCHAUGE WITH T == ES 
Beak — . Cee. UNDEPINED UR 15 IP {&(J3).GE.T) GO TO B . ¥S 
EOe . TERGEG Bg os ua 16 A (05) =A (0) eS heeoes.: an 8, che: ¥S 
ol GO TO 4 ena : a — GR 17 A(Jp=? ¥S 
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IF {L-I.LE.3-«} GO TO 10 
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cose 
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‘1U (ap HL 
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a=aet ; 
GOTO: 12 
XL (ap rk 


J2L : 
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GO TO 132 te 

BEGIN AGAL® OW ANOTHER PORTION OF UNSORTED ARRAY 
‘B=8-1 Pati as pe > 
‘KP (8.EQ.0} RETURN 

T=EL(¢8) oO 


_ J=70 (8) 
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‘Le (d-1.GE.123 GO TO 5 
EF. (1.20.1) GO TO 2 
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if. (1.8Q.3) GO TO 11 
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AF (A(I)-LE.T) GO TO 13 
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A (Ke tp =a (K) 

‘K=K-1 

bo TO 24 
A¢Ke1i)p=T 
Gc TO 13 
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SUBROUTINE HPATH CGNTROLS THE TRAJECTORY PREVICTION ROUTINES ABO 
PERFORMS AW ITERATIVE SCHESE TO ATTEMPT AW IMNPROVERENT IN THE 
POWER, LIFT, AWD DRAG COEFFICIENTS | | hae 


LMPLICIT REAL®B(A-H, 0-2) 
EXTERNAL VA,DODV,DDDV,ALP,DVA,PHIDEB 
DIMENSION TH (10%), WW (450) , PIT (2) HLD (3,450), PS (13) BX (1699 CO (13), 


“yea (13), CK 46) ,UK (6, 13) o THI (19) TOL (6) .RS (169) , THKK (169) 6016) , PAC (B 


1) , LLOC (4.3) ,COST (20) ,U¢ 19,13) .UEV3,.4) -ENER( I), SMM (4) ¢CTR (7) p ILOC (13 
1) -ELOC (13) .PS(10) , DP (6) ,X¥ (6) AR (4,450) , BB (169) p THK (164), bP (169) 62 


VK ETD, 13), SLCUS, U4) RY (169) ,WGTL( 13) -UGTU CTI) -AKS (169) ,CCK (14) BUTE 
243,.2) -SH V3, 13) -THKE (163) ,YS(19,1) SCALE (13) ,DSL(¥3) ,SLOC (13) -XHLD 
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 COMAOW TEBE (SSG) oP 1050) oF 2 (450) oF 3C4S0) oF 4 (450) ,85 (45C) , FO (450) oF 
17: (U50) , FS (450), 9.4656), F10 (450) P19 (650) .2 02 (856), 2131850) P14 (450 

Hp pC (450,91) 2 (H50, Up o WKAR (290) .CPM (14) SUH (8) ¢SGD(S) oPTE (450) oFT2U 
2650), PURA (450) SS (450) . 5ST (450) -SU(450) ,S¥ (450), ENV, ENZ, ELI, FIG, GS 
‘1,80, TEA, EXPX, FLOd ,PHIGH, CDLOM ,CDHICH, JREAG, JURITE, JEUNCH, TEE E EE 


12, 1ER3, TE24, KETRIC, LU, 02, 1£0mN (18) LER 
COMMOM /LABI/AP (13), 8GT (43) ,CHMIN(13) ,CRMAX (13) 
CCRACH /LAB2/YCPT,1CD, ATH, ACLCC 
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CCONOW /LAB3/DGAR 


- COBNOW /LAB4/4RHO 


COMMON /LABS/iN4, DGHX,02GH,DIGH 4 3 
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COMMON /LABX/IURTTE, I8ER i 
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BEQ=13 

Pxx=1.0D0 

IMITLALIZE PARAMETERS 

IVRITE=J0R21TE 

TROR=1Eae 

EX V=1Ex1-3 

IN2=1EX2-3 

LEIFIEXI-1 
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IMXt=Ix1-1 
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UXGN=TE4-1 

CALL CHNGE (SHR) 

CALL CHNGE (SGN) 

CALL CHNGE (SGD) . = 8 
EWACT SPLINES DM AKRSPEED AND ACCELERATION POR IMTERPOLATIO“ 
CALL SPLIVE (NW, F4,TISE, AA, 1) io 
CALL SPLIME(N,26,TIBE,AA,2) OC; C 
DO 1 JXP=1,8 

Wa (IRR) HODV (TIRE (JXP3) 

CALL SPLINE (M, Wi, TIRE, AR, 4) 
CALCULATE NUMBER OF MATRIX ELEREMTS 
wUM=ReY 

AXD=KEQSHEG 

DETLHMIME KUAMBER OF VALID NONZERO COEPFICLENTS 
DO 2 c=t, WEQ 
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® CRMAE (LL) =CRMAX (LL) /1.00000taD0 
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CANES (LL) =CRALB (LL) #1. 900001800 
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V*DRAG® 8X, *SRIGHT*, OX, *FOURR*, SX, *ACCELERATION®, /, SUE, *ANGLE*, 7K, ¢ 
VATTACK® 5K, *CORCPICIEBT®, 22, *COBPFICIENT’, 16K, °AVALLABLE® ) 
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X8-(4} =P 1(1) 
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13EP) /P4(IKE))) 
IP. (DABS (FT2 (IEP) } -GT. £4 (3) ) LW (3) =048S (PT2 (IEP)) 
| EP (PU(SEE) CT. (8) XO (4) =P 3 (OEP) 
IP ( (84 (JEP) 9627 (2. OD06G) +710 (INP) ) GT. 18 (5) ) Lu (5) #P4 (IEP) 9°27 (2.0 
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DO 15 JEP=1,6 

TOL (IZP} =0.0D0 

SEGIN AMALISIS OW SEE OF POIUTS 
DO 88 IPT=2,8 

tPTS=93 

IF (Cer. £Q. 2) LPYs=32 

IP ({CKE.8R.0) LPTS=19 

he | 

IP (CPTS. 80.0) 8=0 

ICK#=«0 

LeTS#ielLerse1 

heK- (99-IPTS) 

IPF (U#T.L&.2} GO TO 6 

ZS=Ta (L-1) 

PEPT=*Ta (1) 
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Taxf2-1 

IP (22.8Q.Kp14=12 

BEGIN ANALISIS OB INTERVAL BANGE 
DO 67? Ir=11,58& 

IF (c.82. 1) 8S=aF 

T*TA (I-1t¢1) 

¥=VA(T) 

OV¥=DVA (7) 

IF (7. ME. 1. aND. KPRIBT. BQO.N) AT=A 
A=ALP (T) 

IP {£.82.%} GO TO 18 

DETERAIWE PARAMETERS FOR FPIEST POIST 
W=P 1 (I) 

a=F5 (i) 

GPEA=DARSIB (PY1(1) /P4 (Ij) 
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H=F1O (1) OHTARE 
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GO fo 20 
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Pacra(t) Cen (2) oveerLt crn (2) oVesEE24CPM (Uy oF eELIOCER (5) o¥e8 E54 
COMPUTE WEIGHT DERIVATIVES 
Dié=-FeP 

D2W=-P ODES (EX VCEN (2) #89 (Ex t- 1.00) + EX2¢CPN (3) e¥ee (EX2- 1.000) +Ex3 
1OCRA (4) 9V8e (EX 3-19,.0D0) +EXY*CPA (5) #VOe (EX4~ 1.0D0)} 

DIW=-P* (DV O%2® (EX 1OCPR (2) © (EX1-1.0D0) 8¥ Oe (Ex 1-2.000) *EX2°CPH (3) * (E 


“ 9E2- 7.000) ©¥ 6 (EX2-2.000) eEX3*C FH (4) © (E13~1.000) 48% (2X 3-2.0D0) #EX4 


19CEN (5) * (2X4=1.0D0) #¥ 08 (214-2. OD0) } e¥2¢ (EX IOCPN (2) #¥#8 (EXI- 1.000) 6 
VEK2°CPA (3) SV 0% (BX2~ 1.000) + EX ISCPA (4) OV 0% (EX3~1,0D0) ¢ EKUFCPR (5) S¥9 


A (REN=1,.000) )) 
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| FBRW-3.0D0) ) D4 443¢3.0D09DV SV 26 (EX TCPA (2) © (2K1-1.000) ¢¥ee (211-2.00 
a) MOY SRRApEFO (a) e UA 1-00) eve9 (Ks 2-000) Pee Anc Es 19} < (849-1000) 242 
_ BO4BKA~2. ODO) oBEVOCEN (5) 9 (2x0-1 ~ ODO) *¥ (244-2. ODG) } ¢¥3% (EX 19CPA (2) © 


ly¥ee (ext-1. 000) ¢ BX 20CPA (3) He (EX2- 1.000) sEX3OCER (4) O¥e8 (ERS- 1. 0D0) 


VeRRGSCEA (5) #989 (EI8-1. 0D0})) 


ceee 


“ PPATGAK ae : 
DPEA=DGHK —_ ee 


Cove 
9 


TEST F008 PARARETERS® UPDATE 
TAT I=T-71 
IF (KPRINT.NE.8) GO TO 19 
Ut=u 

aT=2 


RBSTIMATE. #2IGHT, ALTITUOS, AMD DEWSITY AT SEXT POLUT 

W=UOTAT 16 (De sTAT Ie (028/72. SpOST RET (au /e- BOOS Tne In eka/ Zhe ODO))) . 
DH=¥¢DSIM (GAX) 

‘D2H=DV*DSEM (GHAI) + DGBX* ¥*DCCS (GAX) . 
D3H= (U2-VODGAL*DGAL) ODSEN (GAX) ¢ (2.0D0°D¥eDGAL+ ¥9D2GH) *DCOS (Gax} 
DOH (¥3-3. 0006 veDGareD2GK- 3. OD09D¥SDGH1LS%2) SDSIM (GHI)} + (3. 050802506 | 


- IBU-¥ODGHL 6303. 0D0°DS8D26H¢¥*D3GH) *DCOS (GHX) 


Ir (1. LE. 7) O4H=0.0D0 

a= HeTAT Ve (DH¢TATI® (D2H/2.0D0+TATI® (DIH/6.0D0+TATISDUH/ 24. G0) )) 
Rt=A 

‘BshHO® (1.0D0~6. GoD-60H) 9¢4.2600 

W=V¥A (7) 


> pv=pwa(t) 


Cees. 


20 
at 


ceee 


COMPUTE POWER 
$sco9 (1) SGFaEn send tocre csyovonenzvesacejonvonsgeora Bi*veonsy 
ICK=0 | 

‘ICK=ICK#1 

‘COMPUTE DRAG COEFFICIENT A¥D DERIVATEVES WaT ANGLE OF ATTACK 
AG=DABS (A) 

IF {A.GE.0.0D0} GO To 22 


> KRALL SIGHS (SUM, LEX1, TE%2, 1243, LExX4) 
- CALL SIGHS (SGN, TUT, 14%2,1X3,114%) 


CALL SIGHS (SGD,I141, I¥i2, LXX3, IXX4j 


22 cD= =CER (6) +SHH (1) *CEN (7) AN C*TEA TeSwu (2) SCPR (8) SANSOLEXZ0SHU (3) CEA 
1(9) OANOOTENI+ SH (4) PCPM (10) CANOOTEXS 


_CDBSSGM (1) SLEX 14CPN (7) $ANC#IX1OSGN (2) LETZOCEM (8) CANSOTT2ESGH (3) #I 


 YEXDOCPM (9) SAM#OL 1 3¢SGM (4) OLELG SOCEM (10) OAN®SI EG 


“COPP=SGD (1) PIE XVI KUCH (7) CAN*FILX1 SGD (2) SLEXZSLLZ9CKA(8) PANOOIK 


Rox 
‘SP (a.Gé. Os ODO) GO TO 23 


oe CALL. CHNGE (SHR) 


ARZESGD (3) CLENZOINISCES (9) FANS*INAZOSGD (4) CIEKG SEEN OCEE (10) SAROOIKE 


“495 
196 - 
197. 


196 
199 


200 © 


201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 


2t2_ 


213 
21% 
aus 
216 
217 


218 
249 


220 
221 


. “2 22 . s 
223 
- 228 


225 


226 


227 
228 


(229 


230 


231 


232 
233 


234 
235 | 
236 :. 
237 . 
238. 
239: 

(240 


241 
2492 


. 243 
244 
285 
247 


248 


243 


250 


2st 


252 
253 
254 


f “eigew rae 


Wy ship snacatncred ; ee emeiartes 


-. CALL CHNGE (SGN) 


cees 
23 


CALL CHNGE (5GD} 


PERFoRs BEWTON-RAPHSON TO DETERNIUE ORSTIMATED® ANGLE. or ATTACK 


PA=DCOS (At TEA) OP/ (UOT) ~ (ROSOVOTSCD/ (2.00068) COV G4 OSIH (GPEA}) 


| «FAB=~(DSIM (AeTLIA) OP/ (WOT) #RESS EO VOCDP/ (2.0D00M)) | 


24 


26 


céee 
2? 


26 
29 
30c 


31 
cess 


“32 


Cees 


Cees 


cese 


cess 
35 


FAPP2— (DCOS (A¢ TIA) FbY (US¥) CRESeVeNOCDPPs (2. OD0ew)} 
ree (FAP/FAPP) © (PAP/FAPP) -2.00C*% (FA/PAPRP} 

Iza 

If (RAD.LT.0.0D0) GO TO 25 
TP ((FaPeF APP) .LT.0.000) GO TO 24 
A=A8-FAE/PARP* DSUBT (RAD) 

GO TO 26 


‘M=A-PAP/PAPP-DSQRT (BAD) 
GO TO 26 
25. 


A=AS¢0.2600*ADI¢THTI 
iCA=LCRef 


GO TO 27 


TP (DAUS (A1-#!} ,.2T.1.0D-15. OR. ICK. £0.20), GO TO 27. 


'GO TO 21 
COSPUTE LIFT COEFFICIENT FOR CESTIMATED*® ANGLE or ATTACK 


TDAPR= ((1-E1) OF (ET) © (18> 1) 983 (TEE-1) 5/7 (ENE) 


‘GO TO (24,29, 30}),1CD 


IF (4-GT.0.0D0) GO To 29 
CL=CPA(12) *ACYCETOCEM (14) © TDAPX 
GO TO 31 


CL=CPM (11) ¢CPA (12) SAeCHN (13) *A**EK PL OCR (14) STDAPK 


no, TO 31 

L=CPA(11) (CFA (42) SROCPRE13) *ROACCEH (14) OTDAPK 
afc, 
WAITE OUT RESULTS 


IF (KPRIBT.NE.O) GO TO 34 


IF (MBTRIC.NE.0) GO TO 33 
WRITE (JUBITE, 32) T,He¥,GPPA,A,CL,CD,W,P, DV 
POSSLT (1%,10¢12D12.5, m0) 
GO TO 34 
ALT=H*0.3048D0 
¥X=900, 304800 
#X=0*4.449200 
Px=P¢4,3559180-3 
DYN=D¥ OQ. 3048DG 
WRITE. (QUBITE, 32) 1, ALT, VX,GPPA,A,CL,CD, ‘WX,PX,D¥8,-- 
CALCULATE TISE XNCRERENT 


IP (2. LT.K) TDEL=T8 (1-1 1¢2) -Ta (I-11¢1) 
_SET FLIGHT PATH ANGLE 


GHX=GFPA 


“EP (1.9E.U) GO TG 35 


SET FLIGHT-PATH-ANGLE DERIVATIVE FOR FIRST POLST 


DGFPA=G*S*ReVOCLy (2. Hooet) SenenSIGkNl yes CDSEO ts stAy ey {need 


D2G=0.000 
D3IG=0.0b0 


SRT OR DETERMINE PARAMETERS FOR TRAJECTORY PREDICTION 


IF {0.NE.1) DGMY=0GAX 
DGAX=DGFPA 


_ D2GK=D26 


DIGA=536G 
ADT=0.0D0 


re’ (Tbk. 1) ADT= (AAS) /THTI 


-. TPR#=0 


HGAB=GFPA 


He 


He 


HE 
uP 
HP 
HP 
HP 
uP 
BP 
‘ae 


‘HP 


we 


MP 
Ts 
- we 


ue 27 
- 27é 
277, 
27a \ 
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ave 
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292 
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a ste 
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rey 
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- cose. 


HOGSN=DGFPA 


' JL*0 


Cove 


IKk=10 

STt=Tt 

TJePL=0 

IP (UT. LT.7) rK20 

“CALL TRAJECTORY PREDICTION aouring 


iF hebh Kh CaLt rere _GPPA,DGEPA, D2G,D3G, ISET,¥, PRN, KK, I 


1K) 
YERe=IRaR 
IP (2ER2.62.0) aetons 
P37 (E-1 141) 

Ti=stt 
IP (1.80.6) IK*10 


EF (1.LT.6) GO 16 37 
-ETEGATE TRAJECTORY PREDICTION FOR BETTER RSTIAATION © 


00 36 JPL=1,18 


 IPGS=1PRae1 


TSPLSJPL 


— GPRPA=EGAS 


1a) 


 YERR=TRRa 


TP (TERR. UE.0) RETURN 
PaTK (I-14 1) 


. ghsstt 


eee, 


- Cees 


38 


IF (UK. EQ.1) GO to 37 
. 36 
27 KPRIMT=KPRIETeC1 


CONTINUE 


TEST POR TUTERTAL HANGE END 
a (IPTS-WE.0-AKD. RPRE UT. £0. IPESP1) KEATAT=0 


DEEIWE VALUES FOa PARTIAL DERIVATIVE BVALUATIONS pian 


=TA{I-1161) 
-I® (1.GE.7) GO to 38 
.D2GH=0.0D0 
IP (I.uE. 1) D2Gn= (DGAA-G8Y)/ {t-T1) | 
D2G=D2G6K 
aTiza 


- WENE 


cose 


39 


40 
ceee 


cose 


Cove 


STtxr=a2 


a? (1.0R.1) GO To “1 


AMITIALIZE MATRICES 
pO 39 JXP=1, 8X0 

aR (JKR) =0.0D0 

BP (JP) =0.0D0 

BG (UX) =0.0D0 

BS (JZP) =0.0D0 

DO 40 Jxe=1, sua 

CC (JK2) =0.0D0 

TEST POR FIRST POINT DIRECTION 

If (1.EQ.1) GO 10 71 

TEST FOR PAATIAL DERLWATIVE DETERMINATION 

IF (KPRINT.NE.1} GO TO 87 

DEFINE SCALAR ¥FALORS AT PRESERET AND eREvious POLNTS 
J=J¢1 

TisTTeT 

IP (I2BQ.&)T1=TA (1) 

¥R=VA (T} 

Wa¥A(T1) 

D¥=DVA({T1) 





IF (1.LT.K) CALL TREWOR(TDEL,T, GPA, UGFPA, D2G, 3G, ISET, F,IPRO, KK, I 


315 
até 
337 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 


332 


333 
334 
335 
336 
337 
3368 


335 


340 


34t 
342 


343. 


3as 
345 
346 
347 
3488 


gag 


350 
35% 
352 
353 
354 
355 
356 
357 
354 
353 
360 
36% 
362 
363 
364% 
365 
366 
367 
368 
369 
370 
371 
372 
373 
3748 


42 


a3 


aec 
#5 


cees. 


Cceee 


fmm me ke mre, 


Cr ad a ee ae aS ye ios Teale ine 


Cotta w Rh Se ied bee BERT athe apty 


erCEm (ty sCPA(2) oveeurtecea (3) oveeEsZz+cea(e) ove RT36CEA(S) *¥S*EKA 
=A 
AM=DABS (A) 


‘TOAPE= ( (I-14) #83 (LPT) + (14-1) OP 3(1PE- 1) )/ (LAI) 


GO TO (42,43,84),ICD 
IP (A.GT.0.0D0) Go To 43 
CL*CFA (12) *ACTCRTCCER (18) ©TDAPE 


‘GO TO 45 


CL=CPO(11) OCHO (12) #heCPH (13) #ASEXPXSCPE (14) #TDAPL 
GO TO § 

CL=CES (41) OCFA (22) ACCES (13) A OACCEN (18) \ TDAP 
LF (&.LT.0.GD0) CALL SIGHS (SUM, 1EX1, L822, ;BL3,1E%4) 


CO«CPR (6) (SHH (2) SCEN (7) PAN COL ESU¢SNM (2) SCP A (8) OLNOOl EX2¢SuB (3) ecran. 
99) CANS*LEX3¢ SwN (8) SCPN (10) SAMOOIEES 


EF (&.LT.0.0D0) CALL CHNGE (SMM) 


‘Wat 


B=8T | 
HDM=¥ DSI (FPA) - . . 
PISD PARTIAL DEGLVATIVES WRT ANGLE OF ATTACK 


CALL PARTAL(S,W,u, 4, ¥. CY, HDU, PPA, DPPA, PAC, ACA) 


COMPUTE MECRSSAGY FACTORS AND TERBS FOR DERIVATIVE EVALUATIONS 


 *PBT1=T-TI 


Aisveozri 
UZzVO*EX?2 


| ERs¥OeEr3 


XGcPOOEZa 


RS=ACCTEXI 
RGz=ACCTEX2 


 EVsROelex3 
'. BO=ACOlExe 


- E9=DCOS(AC TIA) /(ueH} 


110=BeS eV eT, (2.000%) 
El1=D¥/G 
KU2=199P- (110¢C06 211) 


- £13208 Qet (1.000-1124x12) 
- EW@sG87TAT1¢92921672.0D0 


‘RIS=PaTLEDCOS (AeTIA) /¥ 


RIG=TAT1¢°29D¥019/2.0D0 
KUV=TATIO82¢GODSIM(ACTIA) / (2.0 OUST) 
X1B2TET19020G/8.0D0 
119=-TAT1970x10 
1K20=-T8T1662¢D90x 10/2. 000 

B2 VeGODS IM (AtTIA)/ (UP¥ OT) 
X22=DUeDDY {11} ©TNT173.0D0 
123=DV DY *eTAT1/3.000 

E24=-20 936018 

¥25*G9S0R*8/ (2.0009) 


_, R26 X9OL9OLI2/ 113663 


Cees 


86 


csee 


N27 E1097 108K 12/1 139903 

E2ZG=K 9X 104X224 13%¢3 

X29-K 1842 12/213 

IMITIALIZE PARAAETERS 

DO 86 JXP=1, 10 

PS (ITP) 70.000 

JIX=0 

COMPUTE PARTIAL DERIVATIVES 

CTP (9) =- (LUGO Ge (NVIOR WI e4, aver ere el Said dalle abt 
CTE (2) =19/213 
CTP (3) =K210G/V OX 129X9/213 


et i pe eet nee 


HP 


CTP (8) =~ (2 19 K20~-8,600 9X16 021242 10-2. Oo0ex 16x 1OsezecLex12/1136417 HP 


ap fr eS te nig ae RE OS 


375 
376 


“377 


378 


- 379 


380 
361 
302 


383 


368 
385 
386 


:387 


3488 
383 
390 
397 
292 


393 


396 
395 
336 
397 
398 
399 
4600 
“Ot 
802 
403 
“0% 
#65 
006 


407 


a08 
409 


ai 


_ a2 


a43 
ata 
@15 
et6 


- 17 


ats 
“19 
#20 
921 
#22 
823 
“2a 


‘25 


%26 
a2? 
42a 
829 
#30 
431 
%32 
433 
434 


a ee es tg na EE tl 





| 
t 
i 


2 tee encatmadnes ee 


CST let 
a 
fF 

eam 





a 


“yoxrzeKt0se7E43)-- 
CTE (5) #-110/213 
CTR (6) =-G/TOX12¢K10/113 
CTP (7) =0.000 
DO 70 JP&=1,88Q 
IP (CPM (SPE) .£0.0.0D0.08.JLOC (JPR) .8E.0) GO TO 70 
BRP erny cs! 
WK (2,.3.3%) =0.0D0 
wk (4, 33%) =0.0D0 
WK (6,032) =0.000 
GO TO (87, 49,51, ei es iiey seve dares: 67,68,69) ,dPK 
Cees COMPUTE PARTIALS WRT FIMST POWER COEFFICIENT =~ 
- 87:00 48 JxP=1,3 
68 UK (IKE, ISK) =CTP (IEP) 
WK(4, ISK) =POTATI 
WK (5, JIK)=#K (5,531) #0. SoO*EAT Ve (DCOS (ATK*RIA) /UTIODCOS (ReTLA) 8) 
5 (15 =CRN (1) OUR (5,05) 
GO TO 70 
Cees COMPUTER PARTIALS WEST SECOND POWER COEFFICIENT 
89 DO 50 Ji=1,3 
50 WK (JL, 34} =CTE (34) OXI 
uK{4, mega bea Se Li td a ODOSE KIS (X22°V%° (EL1-1. ,0D0) + (Bx 
11-1.000) #423494 (RX 1~2.G00)}) 
WK (5, DIX) =HK (5,032) 0. SDO*TNT 16 (OCOS (ATXeTIA) CVPOSERI/WTX+DCOS (ACT 
VIR) CVOORK I 70) 
PS (2) =CPM (2) SUK (5,552) 
GO TO 70 
Cees. COMPUTE PARTIALS UAT THIRD POWRR COBPFICIENT 
51 DO. 52 JL*1,3 
52 WK AIL, DIX} =CTP (IL) 0X2 
WK (4, DIK) =P9 (TOORKZOTAT oTHT 1662/2.0D0SEL2¢ (224% (EK2-1. ODO; ¢¢eEx 
42+ 1.000) xX 236089 (2xX2-2.000))) 
WK (5,301) =8K (5, JJX) +0. 500°TAT 19 (DCOS (ATK+TIA) #VPO*ELZ/UTIODCOS (AOt 
IIA) ©VO*EX2 70) 
BS (3) =CPN (3) OK (5,35X) 
GO TO 70 
Cees COMPUTE PARTIALS WRT FOURTH POWER COEFFICIRUT 
53 DO. 58 JL=1,3 
54 UK(IL, ‘JIX) =CTR (IL) 0X3 
ex(4, JK) =F (VSSELAOTATI¢TATI¢¢2/2, ODOSER2© (L229 9* (2N3-1.0D0) (EK 
13--4.0D0) 912394 ee (2X 3-2.600))} 
WK (5, JIZ) =WK (5,55) 60. SDO*TATI# (DCOS (ATK*TIA) #¥ PORK I/UTE*DCOS (KOT 
VTA) OV SCEKI/U} 
PS (4) =CPS (4) 8UK(5,3IK) 
GO TO 70 
Cose COMPUTE PARTIALS WAT FIPTH POWER COEFPICIZUT 
§5 00:56 JL=1,3 
56 WK (IL, J3X) “CTP (IL) OXS 
UK (4, JIT) =F* (UCORKROTAT LoTAT 1*92/2.0D00EX4 © (K2Z¢¥S# (EX4~1.0D0) + (2X 
14-1..000) ©1230088 (EKN-2.000))} 
WK (5, SSE) =UK (5, SIX) 40. S00 EHT1¢ (DCOS (ATX¢ TIA) *UPOOELY/ETX¢DCOS (AST 
TEA) OVSEXG 4) 
PS (5) =CPA(5) #¥K(S,JIX) 
GO TO 70 
Cees COMPUTE PARTIALS WRT FIRST DRAG CORFFICIENT 
57 pO S58 JXP=1,9 
58 WK{IKE, JIL) =CTP (IKE #3} 
WK (5, 35K) =0K (5,332) -0. 25D0eTAT 1S (UTLSVESeI/uTKoReNee3/¥) 
PS{6} =CPS (6) 2K (5,092) 
@K (6, 3%) =PAC (1) 


| a 
ae 
— «WP 
- #2? 


| ‘WP 


ue 
uP 
HP 
ae 


. HP 
| Be 


MP 
4e 


He 
HP 


aP- 


HP 
HP 
ue 
HP 
KP 
He 
HP 
He 


Ke: 


HP 
hip 
uP 
uP 
uP 
HP 


HP - 


BP 
Re 


HP 
HP 
HP 
HP 
uP 
HE 
HP 
HP 
HP 
aP' 
HP 
uP 
HP 
He 
He 
He 
HP. 


. HP. 


BP 
HP 


“He 


435 
436 
837 
838 
43% 
#40 
eal 
4&2 
443 
aay 
445 
446 
Ga? 
aa8 
a49 
450 
451 
452 


'@53 


454 
455 
456 
457 
458 
459 
460 
a6 
“462 
463 
464 


~eES 


666 
M67. 
468 
469 
470 
471 
472 
473 
«74 
475 
476 
477 
478 
479 
480 
481 
462 
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4au 
485 
966 
4s7 
486 
4B9 
490 


491. 


492 
%93 
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GO TO 790 


| C8e® COMPUTE paatraLs. wat SEcoND peas CORFPICIEBT 


59 DO 60 JL=1,4 
60 WK (IL, IIE) CTP (SL 63) OES 
a a San) ceK CS 291) -0e 25DOSTAE tose (REKCYPSSIOATICSIELI/UTEoReWse3© 
TASOIEX1/4) 
PS (7) =CPB (7) UK (5,33) 
@K (6, 33%) =PAC{(2) 
Go TO 70 
Coes COMPUTE PAETIALS WAT THIRD DRAG CORPPICIENT 
61 DO 62 JL=1,4 
62 WKUIL, JIK) =CTP (3103) 0X6 
WK (5, 05%) =UK (5, JIX) -0, Z5D0SRAT le Se (RT LOVES #IOATKOSIELZ/UF LORE TOSI® 
1290121274) 
PS (8) =CPA (8) *MK (5,031) 
WK (6, JJE) =PAC (3) 
GO TO 70 ne 
Ceee COMPUTE PARTIALS WRT FOURTH DRAG COEPFICIEST 
63 DO 6& JL=1,4 
68 UK(IL, IJK) =CTP 1.3103) x7 
UK (5, JIX} =WK (5.5.32) -0. 25D0°THT 10Se (RTLSV PC OCA TESCIELI/UTXERSYSe2© 
1A%e1Ex%3/4) 
PS (9) =CPA (9) @MK (503K) 
WK (6, 05%) =PAC (4) 
GO TO 76 
Ceee COSPUTE PARTIALS WRT FIFTA DRAG CORPFICIENT 
65 DO 66 JL=1,4 
66 UK(IL, 5X) =CTP (ILO3) OxX8 
UK (5, JIL) =WK (5, SOK) ~0. 25DOOTAT 19S¢ (RTLOVPSO3eATISSCIEXG/UTICRCTSS3¢ 
TA**LEXS/¥) 
PS (10) =CPA (10) @#K (5, 35%} 
UK (6, JJX) =PAC (5) 
GO TG 70 


iceee COMPUTE PARTIALS WRT FIRST LIFT COLPPICIENT 


67 WREV, JIK)=E24 
WK (3,350) =325 
WK (6,.33%) =PAC (6) 
GO TO 70 
C*%e COMPUTE PARTIALS RT SECOND LIFT COEFFICIENT 
68 UK (1, JIL) =22498 
WK (3, JIL) =E25¢8 
WK (6, IJK) =PAC (7) 
GO TO 70 
ceee COMPUTE PAGTIALS WAT THIRD LIPT CORPPICIET 
69 OK (1, JIL) HX24CROOEXPA 
WK (3, ISX) HRZ5°AFOBIPR 
ae WK (6, JJ) =PAC (8) 
FO COMTPENUE 
C*8* COMPUTE DIFFERENCES FOR ALL POTUTS 
FY CK (1) =H-F 10 (34 3) 
IF {DABS (CK{(1)).LB.@.0D-06) CK (1) =0.000 
CK (2) =HGAM-DARSIN (F112 (J¢1) /PS(J¢1)) 
IP (DABS (HGAM) .LT.6.00-03} ICKP=1 
IF (DABS (CK(2)}.L8.1. OD-08) CK (2) =0.0D0 
CK (3) =HOGRA-PT 2 (3¢# 1) 
IP (DABS (CK (3) ) - LT. 3.0D-079CK (3) 20.000 
tr ((J¢1p.£C.1) Go TO 77 
ceee ZEGO OUT SECOMD-PARTIAL-“DERIVATIVE ABRAES 
BO 72 JPK=1,8E0 
00 72 JL=1,8EQ 


uP 
RP 
uP 


- He 


Ke 
uP 
uP 
uP 
HP 
ae 
ae 
uP 
ne 
ge 
uP 
uP 
uP 
uP 
4P 
ae 
HP 
uP 
HP 
ue 
uP 
ae 
ue 


' HP 


HP 
He 
HP 
uP 


. We 


ge 
aP 
ue 
ur 
uP 
uP 
HP 
uP 
ue 
uP 
ue 
ue 
uP 
uP 
up 
ue 
SP 
uP 
RP 
uP 
uP 
uP 
uP 
HE 


caq owt 


ao 


ags 
as6 
897 
896 
a99 
500 
501 
502 
503 
504 
505 
506 
507 
508 
‘509 
510 
541 
512 
§13 
Sta 
515 
516 
517 
5186 
519 
§20 
521 
$22 
523 
524 
§25 
526 
§27 
$26 
§29 


530 


531 
532 
533 
534 
335 
536 
537 
538 
539 
540 
5%% 
542 
583 
548 
545 
546 
587 
$43 
5&9 
550 
55% 
$52 
$53 
554 


fee ee eae aE 


oO 
a) 
eo 

eo be 
aes 
ee 
bn 
ee 
fered AS 


eet en co 


EMCO, ed! bes, aS, aay 
= ee 
ee : 


fae ed te RE A 














| BAIL, JP} =0.000 
ZL{IL,IPK)=0.000 : 
72: ZK(IL,JPK)=0.000 


Ceee ‘STORE FACTORS FOR 2D PARTIAL DERIVATIVES = 


FS (1) =4.0D0 
PS (2}=%1 
PS (3) =X2 
FS (ap =13 
_- PS (5) =x4- 
PS (6)=1. 000 
PS (7) =15- 
PS (6) =X6 
PS (9) 2X7 
. #5 (10) =xe 
FS (11) 21.000 | 
—PS(t2) =a | a. 
PS (13) =acezErpr = 


Cees. COMPUTE SECOND PARTIALS OF FLIGH 


CSOO  ALTITUDE | 
Fig HOR EAP I=-CK (2) ©126 
— -ZAR2Z=CK (2) ©2428 
_ , ZAP3=-CK (3) 9G OX90x%97 (5exK13) 6 (1.0 
—  ZARM=SCK (3) *G 62907 107 (90x43) © (1.0 
_  ZBRS=-CK (1) o (- 292019721130 (2. One 
1B OL9ON9/013982- (LL aOCL 6x17 eP-2_6 
_ 1%972%13))- 
ZARG=-CK (1) © (01270936R 108 (41782. 
1X9 ¢ (XINSCLex 17 ¢p-2.000ex 180% 13} © 
. BO 73 JL=1,5 
DO 73 JM=t,5 
| SE (IN, IL) =ZAP I ORS (JA) ORS (IL) 
| BRINGS, IL) =ZaPZ0FS (N65) FPS (31) 
ZL (38, JL) =20P3 PS (38) © FS (SL) 
(EL (INO5, SL) =ZAPG ORs (ImeS) OPS (IL) 
ae 38 (95, IL) =2aP5 97S (58) OPS (IL) 
73 ZM(I805, IL) =ZAPHOPS (Jm65) OFS (IL) 
: ZAP U=CK (2) 9X28 
ZAP 2=-CK (2) °xX27 > 


HP. 562. 
WP 563 
HP S64 


He 555 


WP 556 


we 6557 


#2 558 
He 559. 


HP 560 
HP 561 


MP 565 
HP 566 
He 567 


 8P 568 


T PATH ANGLE, ITS BATE, aud 


DO ¢ (X12721 3) 02) 
DO¢(X12/XK13) #92) 
K876G OTAT1 Os 2022207975 13) 02.0D00x1 
DO*X 100013) © ( (290X192) 027243083079 


000°X19212059/x13)-2.0D0 en18ez106 
(19¢X100X1 2002/2136 342902107% 13} ) 


HP 569 


‘HP +570 


uP S71 
HP 572 


AP 573 


HP S$7%& 
HP 575 
HP 576 
HP 577 
HP 578 
He 579 
HP 580 
HP 581 
He 582 
HP 583 
HP 584 
ae 6565 
HP S86 
HP 587 
HP 548 


He 5a9 


BAPI=CK (3) #G0X99L 19/ (VOX13) © (1.0000 (112/113) 902) | 


| BAPHE-CK (3) OG *X 109K 107 (904 13) 0 G4 
ie BRBS=~-CK (1) o (X12 /K 436100 (x17 62. 
E96 (L149CL en 17¢p-2, 0008 18 ex 13) 8 
ZAPG=~CK (4) * (1100020 ¢2.000 ox 14 6; 
— 12,000 6x 4802 13) 0 (xX 12002 71300304 
PO 7e.38=1,5 . ; 
BK (IB, JL) =ZAaP1ePs (Jn) OPS (IE) 
BK (0865, JL) =ZAP2 9°75 (J8¢5) @PS E31) 
| SL QIK, IL) =ZAB3 PS (Ja) OFS (JL). 
BL (INOS, IL) =ZAPSORS (3805) OFS (IL) 
| BA (IK, JL} =ZAPSePS (IN) OPS (IL) 
FO 2H (JEOS, IL} =ZAP6 SRS (INES) OFS (JL) 
ZROPE-CK(V)SxX29009 
ZAPB=CK (1) 9X299110 


- ODG+ (2127113) e082). 
000°X166412°49/x% 13) -2. 000 ex 189x190 
(196K 100K12002/21300 361904107213) ) 
1.0D0-K12¢82/% 13002) ~(x1ueCLexI7eP 
-0D0/%13))) 


HP 604. 


He 590 
HP 591 
HP 5982 
HP 593 
WP 5948 
WP 595 


WP 596 


HP 597 
HP 598 
He 599 
HE 600 
HP 601 
HP 602 
He 603 


HP 605 


Ke 606 


HP 607° 


UP #608 


: C*Se STORE PARTIALS OF LIFT COEFFICIENTS | 


DO 75 JA=11,13 

DO.75 JL=1,5 

ZA (IK, JL) =Z2AP7ORS (JL) OFS (38) 

28 (JM, IL+5) =ZAPBOPS (JL¢5) OFS (28) 
28 (JL,38) =28 (38,54) 


BP 609 
HP 610 
He 61 
HP 642 


HP #613 


Hp 614 


75 ZN (JL¢5, 28) 228 (58, 0L¢5) a 


wie TOE Keet TR tla ee ln Sok ee Ce oes Ao oe . ’ ee SR Ee eg abr ae kn wee ses 


Coes COMPUTE. MATRIX OP-2ND PARTIALS OF J WRT MODEL COEFFICIENTS eH 
JJ=0 an . uP 
JIJ=0 _ . ; HP 
DO 76 JPX=1, NEG it uP 

i.F (CPR (SPX) -£Q.0.000. 08. ILOC (JPX) ME. 0; GOTO 76 uP 
JI=5301 . —_ HP 
DO 76 JPY=1,HEQ . HP 
IP (CPA (JPY) ~2Q.G.000. 08. JLOC (JP) .HE.0) GO PO 76 uP 
JIJ=JII¢1 ae 
THK (933) =20 (IPE, IPY) 8D (2) uP 
TURK (JI3) =21 (2PX, IPT) *D (3) uP 

_, PeeX (JIS) =Z8 (3PX, IPT} D1) HP 
76. CONFI NUE “ne 

Coes SUM MATRICES OF SECOND PARTIALS ue 
CALL MADD (RP, THK, RP,03,33,0,0} uP 
CALL BADD (20, TUKK,80,33,33,0,0) He 

CALL MADD (GS, TWKX,85,33,03,0,0) #P 

| 47 CREM) =eT-ue 1501) rt 
IF (DABS (CK (4)}.GT.1.0D-04) GO TO 74% up 
Te ETT PRIS, | ue 
CK (4%) 20.000 He 
73 EMER (1) = EN ER (2) uP 
EWER (2) =ENER (3) —— ag ; He 
Lae) eee eee ara Lot) OORT OCHN (3) 9P4 (301) SoRczeceM (ayers cae con we. 
IK3¢CEA(5) OFY Q201) Corxy a HP 
IP (ATX.LT.0.0D0) CALL SIGHS (SUN, IEX1, TEx2, 2243, 1814) HP 
AM=DABS (ATX) HP. 
12) knee eee ey SSHN CD AB POL EL VeCPN(S) #Swu (2) CARSSLERZ¢CPR(9) SEU KP 
V(3) CAA FOEEL3¢CPN(10) Suu (U) OAneorEXy He 
IP {ATX.LT.0.0D0) CaLe CHNGE (Sum) HP 
Teta ge DCOS (ATLOTLA) /UZI-RTLSSORY (161) 9937 (2. 0000urx) *cD HP 
ie CCJ¢ th. BQ. 3) EMERGE=P8 (1) 9% 27 (2.00006) +7 1011) HP. 
IP ((J¢1).GT.2) co to 79 He 
IF ((3¢1).EQ.%) GO TO BO He 
1p eS IOP ee PSU OPS (2) #RS (3) #PS (U4) © PS (5) #PS (6) PS (7) +PS (8) oS (9 Ne 
Go 70 80 uP 
79 FAI=TINE (1PT-3) -~T1aE (LPT-2) “HP 
7T4220.000 : uP 
TAI=TLAE (IPT~1) - TIME (x PT-2) . Ribse 2 dite he 
en ae TEER EW EMER (2))/(TA1~-7h2) ~ (EMER (2)+EwER C3) ) / (72-743) ) /¢7AI- HP. 
. ieee : > H 
C2* (ERER(V) ~EWER (2) ) /(TAT~TA2) -C1# (TA TeTA2) ub 
CI=EMER (1) -TA1*(C1°TA$ 6C2) . ae 
Le TA Sree eC 174-0008 (th3903-Ta2 003) 662/2.0006 (ra3092-Ta2062) 403 Ae 
(783-TA2) 
80 CK (3) EMERGY~b 4 (3+ 1) #927 (2.0008G) -F10 (391) : 
TP (0061). EQ. 2) BeeRGa=BMeRGI-CH (5) He 
EP ( (501) .2Q. 2) CK (5) =0.0p0 Ae 
TP (OaBS (CK(S)) .LT. 3.00-05) CK (5) =0.000 ap 
CH.(6) =A TX~P6 (361) rtd 
Ir (DABS (CK (6) ) .LT. 1.00-03) Ck (6) =G.0D9 HP 
«TP ((3¢1).£0.1) Ga to 33 uP 
(Ceee SUA MATRICES GF PARTIALS up 
IpP=0 uP 
 J5*0 “ae 
. DO 82 JXP=1, "EQ ae 
IP (CPA (3XP)..20.0 .000. O08. JLOC (XP). HB.) GO TO 82. ap 
IP=IPet oe ap 
i 2 s ft _ B .3 8 £ é : yt 
Ms : : ® oo “we mire, ver - “ » be cba 


615 
616 
617 
618 


619 
. 620 


621 
622 
623 
6248 
625 
626 
627 
628 
629 
610 
631 
632 
633 


634% 


635 
636 
637 
638 
. 639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
‘650 


651 
- 52° 


‘653 
‘6548 


656 


- 657 


658 
659 
660 
661 
662 
663 
664 


665 

666 . 
_ 667 
$66 


669 
670 
671 
672. 
673 
67% 
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ee eee 


ST#J=0.050 
: DO 81 JP=1,6— 
dad set : 
THK (3.5) =WK (JP, 1e) *psgur (0 (3P)) 
Bt STud=stuseTWE{II) CK (32) °BSQB7(0 (3P) 
SRI (1P) 25TH 
82 CONTINUE 
- 8520. 
«CALL SATA (TUK, THKK, 6,18, 85} 
. CALL MADD (RR, TUKK,RE,IP,IP,0,1) 
CALL mADD(CC,THI,CC,1P,1,6,0) 


C#ee COMPUTE SUA OF SQUARED SESEIDUALS 


. 63 DO 64 IXLP=1,6 
BH TOL (IKE) =TOL (3X2) CK (IKP) OCK (ILE). 
Cees STCRE AND DEFINE PARAMETE&SS 
ABATE. 
W=WTX 
g=aTxr 
EF (L&X.20.1) GO TO 86 
00 85 JxP+1,3 
8S XHLD (312, 3 ¢1) =4LD (axe, J+) 
86 ALO (1, 3¢1) =P 1(507) 
‘MLO (2, 3¢1) =F5 (249) |. 
_ BLD (3, Jet) =F6 (31) 
me ARS IAI Ea | 
FS (301) =8 
PS (Je 1psa 
OF iP (iPrs.2Q. 0. AND. KPAL NT. £9. TPTSPH) KPBLUT=0 


 cese PROCEED WITH NEXT POINT 


ceee SRT A PRIORI VALUE AS SODEL CORFFICIENT IF CospITION-I5- ‘SET 


- @8 CONTINUE 


IP (LCS.NE.O) WRITE (JURITE,89) Loca 
89) PORMAT (1X,//, 9%, 94H9** DURING BEWTON~RAPHSON FOR ANGLE OF ATTACK 
- 18 PATH, ROUTINE WISHED 70 SEEK COMPLEX BOOTS ,13, 7H TIMES. Y 
ae IP (8CAh.8Z.0) WRITE (J¥RITE,90} ACA 
90 FORSAT (12,//,9%,94H9** DURING MESTON-BAPHSON FOR ANGLE OF ATTACK 
VEN PARTAL, ROGTINE WISHED TO SEEK COMPLEX BOOTS ,13,7H TIMES.) 


porte ORTEBRAIWE APPROPRIATE A PRIORI VALUE APPLICATION 


TaE=0 | | 
pO 91 JXP=1, NEG 
SP (gre) =1.000 es | 
LE (CPA (JKP} 20.0 000.08. JLOC (JXP) .UB.0) GO TO 91 

Lge=Taret. 

.- ELOC (QUE) =J3EP | 

 DSLQLSK)=SCALE (JEP) 

91 COBTIRUE 


geet. ‘COMPUTE THE COST FuacTios 


PCF=0.0D0 
 PPCP=0.0D0 
pO 92 JxP=1,1P 


EP (LOC (KLOC (ITP) } . 8B.6) AP (ILOC (OXP) ) =CPB {ELOC (JKP) ) 
92 PPCF=PPCE + WGT (LOC (SXP) ) © (CRA {ILGC (JXP) ) -AP(ILOC (JEP) )) **2/ (AP (1LO_ 
1 (IKBP)) CAP (TLOC (JEP) )} 
pO 93 3zP=1,6 
93 PCP=PCPeD {JKP) TOL (JXP) 
IP (TPS. 68.0) 5K=1 
COST (JK) =PCEtPPCE ee ashes 
BRITE (JURITE, 94) COST (IK) - coms 
94 POSMAT (1K,///,33%,°COST FUNCTION (J) =e , 1PD23.16,/,39K," WITH") 
— DO 95 IxP=1,6 Ti hes 


we 
we 
uP 


8P 
HP 


HP. 
we 


uP 


uP 


ae 
uP 
ue 
HP 


uP 
ue 
HP 
uP 
He 
uP 
HP 
uP 
ue 
uP 
aP 


ap 
ae 
uP 


KP 
uP 
HP 
HP 
HP 
dP 
HP 
uP 
uP 
aP 


| §P 


aP 
ue 


be 
ae 


KP 


“HP 
HP 


HE 
HP 


ue 


oP. 


675 
676 


677 
678 


673 
630 
681 
682 
6683 
684 
685 
986 
687 
688 
689 
696 
691 


692 


693 
69% 
695 
696 
697 
698 
699 
700 
701 
702 
703 
70% 
705 
706 
707 
708 
709 
710 
74 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 


Fae 


725 
726 


427 


728 
729 


730 


731 
732 
733 
734 


+ Coes ADJUST BATRICES POR LEAST SQUARES SOLUTION 


a ea BO" OP Brees 


eee ae es Be a mt a ace ern af inchs! SEASON Pla iat te Bs: OS Se Oe a 


95 TOLQJEP)=TOL(JEE}/E 
WRITE {IURITE, 96) (TOL (IEP), JEP=9, 6). 

96 PORAAT (39%,°ALTITUDE TOLERANCE = ©, 020.13, /¢39%,* PLIGHT-PATE-ANGL 
$E TOLERASCE = *,D20.13,/,39XK,* PLIGHT- PATH-ANGLE-DEBIVATIVE TOLERAU 
ICE = §,D20.13,/, 39%, °HEIGRT TOLERABCE = *,020.13,/,39%,* EWEAGY TOL 
TERANCE = *,020.13,/,391,°ANGLE-OF-ATTACK TOLERABCE = *,D20.13,///) 


_Cese UPDATE COST FUNCTION 
C%es CHECK COST PUNCTION WITH TOLERANCE FOR [TERATION TERAINATION 


AP (COST (3K) .LT.1.00-10) GO TO 133 
IP (JK. BQ. tp Hcost=cost (1) 


cose TESY FOR IBCREASE I@ COST FUNCTION 


IF (JK.GT. 1, AND.COST {IK} -GT.HCOST) GO TO 130 
| HCOST=COST {IK} 


CALE MADD(RR, BP, RR, IP, 1P, 0,0) 
CALL SADO(BR,RO, RR, IP, IP, 0,0} 
CALL MADD (RR, 8S,2X,1P, 12,0,0) 
SIDD=IP*IP 
1PS=0 
resax=0 
DO 97 JL=1,8zDD 

97 OXS (JL) =RX (IL) 
DO 98 JL=1,5P 
98 CCK (JIL) =CC {JL} 
99 ICs0 
LPSRE=LPSAXE1 
IP (IPS.EQ.0) GO TO 101 


/ Cee APPLY CONSTBALETS AND SiG ractoa, ZF BEEDED 


JJ=0 

DO 100 3JKe=1,NEQ 

IF {CPR (JXP) -BQ.0.0D0. 08. JLOC (JEP) .UE.0} GO TO 100 

JJ253¢3 

re ((CPA (SEE) FELT (35 1) SCALE (JEP) } GZ. CRAIN (JHE) -AMD. (CPM (IEE) 
UPXIKSY (33, 1) *SCALE (JEP) ) LE.CRNAX(JEP)} GO TO 100 

iw (IPSAZ.GT. 2. AND. RUT (JEP, 1) WEG. ODO) RUT (SEP, 1) =BUT (JEP, 1) £10.00 


IP (IPS@X.GT. 2.485. RUT (IZP 2). WE. 0.0D0) BUT (SKP,2) *AUT(IXP, 2) ©10.0D 
10 

IP (IPSAN.GT.2.AND. (RUT (IXP, 8). ME.O.0D0.0R. AT (JEP, 2)-BE.0.0D0)) G 
10 TO 160 

IF ( (COS (INE) CELL OY (53, 1) SSCALE (JEP) .LT.CQSEM (INP) ) RUTCQIIP, 1) =¥GT 
IL (INP) 

IP. ((CPA(IXP) OPXESY (33, 1) ©SCALE (JEP) ) .G7.CRHAX (JEP) ) RUT (INP, 2) =4GT 
10 (IEP) 

IF (CFA(IXP) .GT.CRAXM (JXP) AND. RUT (JEP, 1). UE.0.000) SP(SXP) =-0. 5D 
— EP (CPAC(IZP) LLT.CRAAX(JXP) AMD. RUT (JEEP, 2). BE. 0.009) SP (IX) ~-0.500 

IP ((OKP.2Q.8. ABD. (PELOY (3.0.19) SSCALE (ITP) ) - LT.G.000) . AMD. (CPM (IEP; 
VePULOT (53, 1) SSCALE (JEP) } LT. CRAIN (IXP) ) CRALM (JXP} =CRAIB(IXP) ~PXXY 
1(33, 1) @SCALE (IEP) 

100 CCHTIAUE 


marr FORMS MATRIX FOR LEAST-SQUARES SOLUTION 


101-DO 103. 3JNPI=1,1P 

"EP (DABS (CPA (ELOC (JXP1))) «LT. 1.00-03. ABD. 1LOC (JXP1). EQ. 19) AP (ILOC( 
TIXP1)) +1, 0D-10 

IP (DABS (CFA (LLOC (3XP1})). LT. 1.0D-03. AND. ELOC (JXE1) . EQ. 31) UGT (XLOC 
4Q02P 1p) =1.0D-17 

EF (LEK.GT.4.AND, (WGT (ILOC (JEP 1) } -GT-G.0D0 AND. ILOC (JEP 1). BQ. 11))8 
IGT (ILOC (JEP 1) ) =2. SDO¢NGT (XLOC (JXP1)) 

DO 102 JXP2=1, IP 

RFAC=1.0D0 


HP 
HP | 
ae 
He 
HP 
He 
gP 
uP 
aP 


ue 
ap 
uP 
=p 
aP 
ae 


uP 


Pe 


HP 
iE 
HP 


He 
HP 
uP 
#e 
ae 
uP 
uP 
He 
He 
HP 
HP 
aP 


uP 


uP 
HP 
uP 
ap 


HP 
uP 


735 
7436 
437 


738 


739 
740 
Fat 
742 
743 
744% 
745 
746 
ta7 
748 


149 
756 


751 


. 332 


753 
756 
755 
756 
787 


758. 
159° 
760° 


761 
362 


363 


768 
765 


766 | 


767 


766° 


769 
770 
771 
472 
773 
774 
798 
776 
777 
776 
779 
7a0 
78% 
782 
783 
788 
785 
786 
7a? 
7a8 
7a9 
730 
791 
792 
793 
79% 


kgm et 


WO 


a 
bead 


G2 


h 


3A 10 


ae z y » 
at 


& m . z 
3 aS fon 


* 
ah 


tbr 
Wabi 
j 


Abs VO 
SI EOVd TWNEDIEO 
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ep 


IF (JRP1. 5Q.J022) KPAC=4.00005D00DSL (JEP 1) uP 
XC=82 (IC) COG Secs ie alfa endo Vase Meee Bye ae 
IF. (JLOV. EQ. IEP2) KC=XC+2.0D0SUGT {I LOC (JEP 1) ) /(AP (LLOC (JEP 1p) SAR(EL OP 
| 10C (JEP 1))) | ae we 
TP. (JERV. BQ. Ik P2. AND. UPS. WE.0) XC#XC#2.000¢ BUT (ILOC (JP 1), 1) *2.000% MP 
_ WWE CILOC (3201) , 2) uP 
2 — OCIKP2, JP 1) =1CoxrPac aP 
uF Be 302 Z26(3222,.30P 1) =0 (IXP2,0XP1} uP 
‘s EQS T, 1) ~-CC (SEP 1) #2. ODOSUGT (ILO (SRP t) 5 ® (AP (LLOC (JEP1))-CRA(XKLOC HP 
: VQIER1))) / (A? (LLOC (3221) ) OAR (XLOC (JEP 1))) Re 
t 
t 


XP (IPS. ME.O) Y (IP 1, 1) =¥(SEE1, 1) -2.0D00SP (LOC (3X21) ) BUT (ILOC(JIeP OP 
U9) 0) © (CPA (LLOC (JEP 1) ) -CRAIM (ZLOC (XP 1))) ©2.0D98SF (ILOC (3xP1) ) ORuT ue 


U{ILOC (JEP1) ,2) © (CRMAX (LLOC (JP 1) }-CPH (ILOC (321) )) uP 

103 ¥S (IXPt, 1) =¥ (321, 1) uP 
b. Cees BHACT LEAST SQUARES SOLUTION uP 
ee ous CALL LLSQAR(U,T,1P, EP, 1,13, 533, 15, WKAR, IER, JURETE) uP 
cees TEST POR ERROR He 

EF (EER.2Q.129) 1eee=1 up 

1] ee IP (EERR.BE.0) RETURS uP 
ee IP (ZPSAI.GE.3} GO TO 107 . ue 
| ceee TEST FOR APPLICATION OF COBSTRAINTS - ue 
Pe . IPIx=0 HP 
i fog JJ*0. - ys uP 
oy DO 10% JxP=1, 820 ap 
= IP (CPAC(IXP) .BQ.0.000. 08. JLOC (JP) .E.0) GOTO 104 uP 
te dd=JJ¢1 , pe! #e 
TP (CCPA (IEP) CPUKFY (93,1) SCALE (JEP) ) LT. CAALE (JKP) OR, (CRS(JEP) ¢P GP 
Gil REXSY (5J, 1) SCALE (JEP) ) .GT. CRAAX (JEP) } LFIZ=1 -#e 
vf PS=IPIX HP 
bel 10% COBTINUE uP 
a ceoee RESET SATRICES “ue 
mt EF (UFIX.EQ.0) GO TO 107 “HP 
x 00 105 JL=1,AX00 HP 
PE 105 BE (IL) =RXS (SL) ee A =a uP 
it : 00 106 JL=1,IP uP 
ie 106 CC (JL) =CCX (JL) uP 
: GO TO 99 we 
Cee APPLY DELTAS TO POWRR, DBAG, AMD LIFT COEFFICIENTS ue 
107 GRITE (JWRITE, 108) FEX ; a uP 


108 FORMAT (1X,//,34X, "PREVIOUS COEFFICIENT, AL,P4.2,"*DELTA*,9E,"SEW HP 





ICORFPICIENT® ,//} HP 

33=0 He 

aLCx=<0 HP 

DO 119 JEP=1,82EQ HP 

LLOC (JEP) =JLOC (JZP) He 

HLOC (JXP} =0 HP 

1xX=0.000 2 ene etemg mae sean ence 

- BS (JEP) 20.000 Ke 

Ick=1 : HP 
- IF (CPA(JEE).B0.0.0D0.08.JLOC (J1P) .BE.Q) GO TO 115 HP 
IcK=0 ae 

: JJ= 3564 rt ak age -¥P 
: XX=7 (33,1) *DSL (JJ) ae 
IP (JRP. 20.12) 1042=24 ur 

IP (DABS (ZX/CPA (SEP) ) LT. 1.5D-06.08. DABS (CPS (JXP) CPXXCXX) LT. 3.0D- He 

108) £x=0.000 ape 

IP (322.2Q.12. AMD. DABS (2 (33, 1} *DSL (99) /CPS (JLP}) LT. 1. SD-06) EX21.0 UP 

1p-03. HP 


IP, (KX."2.0.600) Go to 105 up 
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796 
7397 
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B99 | 


8006 
801 
802 
03 
804 
$05 
806 
807 
608 
a09 
810 
at 
8t2 
813 
814 
815 
816 
8t7 
éts 
atg9 
620 
821 
822 
823 
824 
825 
826 
827 
6238 
829 
836 
831 
832 
833 
834 
635 
836 
837 
$38 
639 
BaG 
444 
842 
843 
Say 
B45 
686 
au? 


848 


889 
850 
851 
852 
853 
854 


ICK=2 | 


RLOC (InP) =1 


JLOC (Ke) =1 
SLCX=ALCKet 

EX=¥ (33,1) *DSL (39) 
OS (JEP) =PIxeXE 


CBLD=CPa (Ire) 
CPB (IEP) <CEM (INP) 4S (IEP) 


KP (SETRIC.NE.0) GO TO 132 


IP (ICK.£Q.0) GhITE (JURITE, 110) COLD, PEL, EX,CPM (SEP) 
IP (ICK.NZ.0} WRITER (JERITE, 191) COLD, FEX, UK CPM (IE B} 
V90 FORMAT (39%,D20.33,° © *, F8.2,°9*,D15.8,* = *,N20. 13) 


aP 
UET PORNAT (342,0D20.03,* ¢ *,F4.2,°°*,D95.8,° = * 20. 43,3K,° (FROZEN) * AP 


0 

GO To 119 

442 LF (Jke.GT.5) GO TO 413 
CXH=CHLDO1., 3550138D-3 
XE=XK°t.3558180-3 
CXY=CER(IXP) ©1.355818D-3 
GO TO 1%4 

123. CKB=CHLD 
CHY=CPR(IXE) 

110 TPF (1CK.E0.0) WAITE (JURITEB, 110) CEM, FEE, 2X,CIY 
IP (ICK.UR.0) WRITE (IMRT TE, 111) CEM, PRK LE,CLY 
GO To 119 

145 IP (METRIC.NE.0) GO TO 116 
WRITE (JURITE, VIN) CPA (IEP) FXX, IX CPM (IEP) 
GO TO 319 

296 IF (JXP.GT.5) GO TO 417 
CUM*CPA(IXE) *1.355818D~3 
CXY=CFA (JEP) 1.3558 18-3 
GO TO 118 

917 CEH=CPA (ITP) 
Cx¥=CI# 

118 BRITE (JURITZ, 111) CRH,PEX,XE,CLE 

119 CCHTINUE 

C#ee CHECK FOR ADJUSTHENT TO MATRICES DUE TO COEFFICIENT PEZEZIEG 


IF (MLCZ.2Q.0.08.ALCK.GT. (J3-2)} GO TO 128 
DO 120 JKe@=1,5E9 


IF (JEP. £0.12. A80D.85 (JEP). £Q. 1.0D-03) CPM (12) =CPA (12) ©1,.0D-03 
I” (JEP. EQ. U2. AND. (CPA (IEP) .GT.6.296D0 AWD .TC12.GT.0.0D0) ) CPM IJEP) 


VaCFA(IXP) +3.00-03 


120 


320° 
Cese 


coee 


‘(Cees 


Ceo 


CPA (JEP) =CPA (IKE) -RS(IKP) © (1-ALOC (IXP) ) 

DO 121 Ix=1, 10 

IF (CPR(12) .GT.CRAAK (12) ) CPA (32) =CPM (12) -1.0D-03 
ADJUST MATRICES 


CALL ADJUST (ZA, IS,C¥a,¥,0SL,LLOC, ALOC, IP, NEY) 


WRITE (3URETE, 108) FFXX 
COMPUTE WEW ADJUSTED DELTAS 


CALL LESQAR (ZR, YS,LP IP, 1, 13,13,15 WKAR, IER, JURITE) 


TEST FoR ZRROA 
IP (LER.BQ.129) LEaR=1 


‘IF (JERR.BE.O) RETURR 


APELY DELTAS 
J23=0 

DO 127 JXP=1,"2¢G 
kx=0.00D0 

IckK=1 


Ir (CFM (IKE) .2Q.0.0D0.0R. ( { (JLOC (IEP). EQ. LLOC (JER) ) « ABD. JLOC (IIR) « 


18B.0) OR. ALGC (JXP).NE.0)} GO TO 122. 
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633 
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908 
909 
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CKO 
oO Bdsgaer: 


- MESPENOTS (54,1) SCALE (OEP) 


| CHLD=CPA(JZR) 


CPA(IXP)=CPR(IXEP OLE 
IF (AETRIC.NE.0) GO 20 1423 


EP (1CK. BQ. 0} WRITE (J¥RITE, 110) CHLD, PXX, UL, CPA{IXE) 


123 


125 


 «t26 


1427 


Clee 
- 128 


 Ceee 
430 
rem | 
. Cece 
>. DO 132 1G=1,8 
‘P1(IG) =X8LD (1, 1G) 


932 
Cc#se ; 


133 


334 


IP (ICKL 8E. 0) WRITZ (JORITE, 111) CPA (JZO), FLX, UL, CRM (IIP) 
GO TO 127. 


EP (042.ST.5) GO TO 125 


—CEM=CHLD®1., 3558 1aD-3 


MEER}. 3558390-3 


— CRE=CPR(JXP) #1, 355818D-3 
26 


GO TO 1 
ChH=CHLD 


 CEYSCPH(IXP) 


UP (ICK.EQ.0) MITE (JWRITE, 140) CEM, PXX,XKX,CEE 


~2P (ICK.ME.0) weIrE (JGRITE, 101) CEE, PEUX X2,CXY. 


CONTINUE 


‘STaat wee ITERATION OR COSTINUE 
-ICut=0 


DO 129 JXP=1,NBg 


2 UCPALLER 61, ORB) =Cra (ITP) 
tc nag 


ir (CPA (IEP). ME.0.0D0. AND. JLOC (JEP) .UE.0) LCUT=ICHTe1 


GO TG 3 ote, seco 
QEADJUST CORFFICIENTS DUE TO TOLERANCE LUC REASE 


DO 131 Jx£P=1,NEQ } 
CER (JEP) =HCFA(LKK-2,3XP) : 
SESET PARAMETERS WITH RESPECT TO BEST TOLERANCE 


PS (IG) =XHLD (2, 1G} 


‘P6 (1G) =ZHLD (3, 1G} 


GAKE ADJUSTAENT TO PITCH ANGLE 
DO 134 I=1,8 oe 
P2 (0) =P6 (1) ¢DARSIM (P11 (1) /P48(T)) ae se 
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7 The sample output reproduced here is intended to show generally the type 
of output which will be obtained from the program, including the final data 


format and the plotted results. Because only six iterations of the Newton- 


space, The results are not as accurate as those which can be obtained with 


Raphson procedure were used in the Interests of saving computer time and report 


additional! iterations. As mentioned earlier, with 29 iterations a fit error: 


of 1.33 x 10"!° was obtained in contrast to the present value of 5 x 1079, 


Each additional iteration requires an average of 7 minutes of computer time 


on the local computer (|!BM 370/165). Approximately 4 minutes is required for 
compilation and linking and 20 minutes for execution of the preliminary | 


procedures, final data computation, and plotting. A full 29 iterations would 


therefore require about 227 minutes. The results shown here accomplished 


_ compile, tink, and go in 55 minutes. All| Times are approximate because actual 
_ computational time is dependent on the computer workload at the time the job 


is processed, : 


One final note: FDR2 employs the subroutine LLSQAR to solve systems of. 
equations of the type Ax = b by obtaining the pseudo-inverse of A. This is a 


computing center library routine. It was selected from among the available 


library routines after some experimentation because it yielded the best results. 


The superior results are thought to be due to its use of double length words 


(i.e., 32 decimal digits) for the matrix multiplications and additions, a 
feature shared by none of the other library routines. Since the A matrices 
found in FDR2 are always somewhat il l-conditioned, this additional! precision 
iS apparently necessary to obtain reasonable results. In fact, additional 
Precision beyond 32 decimal digits would be desirable because tests of the 
product AA™! or An!A Indicate that the size of the off-diagonal elements may 
vary from 1077 to 10718 times the size of the diagonal elements. Since the 
routines which perform the double word arithmetic in ~LLSQAR are available 
locally only in assembler versions, they are not reproduced here. The reader. 
desiring to install FDR2 at his own installation should substitute some | 


alternate matrix solver for LLSQAR, taking care to provide at least 32 _ 
decimal: digit precision, — re a Pig et bg a he Pe ea, 


